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/* 

♦©author Imtiaz Hossain 
* 

♦©version 2.0 
* 

*Date : 10/05/00 

* 

* 

* Header file for JPEGlib 
*/ 

#include<iostreain.h> 
iinclude <afxwin.h> 

iifdef cplusplus 

extern "C" { 

#endif // cplusplus 

#include <time.h> 
iinclude "jpeglib.h" 
#ifdef cplusplus 

} 

#endif // cplusplus 




class CodecErrorHandler 
{ 

pift^ic: 

int n_ErrorFlag; 

// Methods 

jl int GetFlagO { 

^/ return n_ErrorFlag; 

fil void SetFlagtint f lag) { 
'-'^ n_ErrorFlag=f lag; 
= } 

void Notify_stderr (int f lag) { 
Ll cout «" Error: #• «flag«endl; 

Mi > 

u 

class JPEG: public CodecErrorHandler 
{ 

public : 

// static consts 

// Error definitions 

static const int SUCCESS; 

static const int MEMORY_ALLOC_ERROR ; 

static const int FILE_READ_ERROR; 

static const int FILE_WRITE_ERROR; 

static const int JPEGLIB_STRUCT_INIT_ERROR 

// Coding types 

static const int DEFAULT_CODING ; 
static const int BASELINE; 
static const int PROGRESSIVE; 
static const int LOSSLESS; 



// Resolution 

static const int DEFAULT_RES; 

static const int ONE_BYTE; 

static const int TWO_BYTE; 

static const int THREE_BYTE; 

static const int FOUR_BYTE; 



// Color Planes 
static const int DEFAULT_BPP; 
static const int Gray; 
static const int RGB; 



// Image Quality 

static const int DEF_QUALITY; 

// Compression Ratio 

static const float DEF_RATIO; 

// Time limit on the compression 
static const long DEF_TIME; 

// regular public variables. 

int n_ImageHeight; 
int n_ImageWidth; 
int n_ImageBpp; 
int n_ImageResolution; 
int n_ImageCodingType ; 
int n_ImageQuality; 



// Constructor (Default) 
JPEGO {} 



„ // Encoder Methods 

1=3 

■-n /* The EncoderParam method loads the values for 

1) The Height of the image. 
Jj 2) The Width of the image. 

■^_'z 3) The number of color components per pixel, i.e. color depth. 

y 4) [Optional] Image resolution. Number of bits per pixel. 

■Jj This is usually a Grayscale thing. But the comprehension of the input data buffer 

.j\ (in parameter 1) will change. We usually have two options 8 or 12. DICOM will 

2": support upto 16. 

nJ 5) [Optional) The type of Encoding. ... i.e. BASELINE, PROGRESSIVE, etc. etc. Again 

this might call for a change in the way the decoder produces the output stream of 
BYTEs . 

6) [Optional] Quality of the con^ression. On a scale of [0 - 100] this parameter 
rj determines the tradeoff between compression and image quality. For larger 

values of this parameter, we might actually have ablow-up of the size instead 
of compression. A 100 on this parameter does NOT imply lossless compression. 



I Hi 



* 



/ 



/t: void EncoderParam (int n_Height, int n^Width, int n_Bpp, int n_Quality=DEF_QUALITY, int n_Coding= 
nE|'AULT_CODING, int n_Res=DEFAULT_RES) ; 



/* The Endode method worlcs on the values fed into the EncoderParam method. These values 

eventually show up in the modified "UG" structure for jpeg compression. The compression 
proceeds as per these values. The coit^ressed buffer is returned by the function. The only 
input parameter is a pointer to an "int", so as to avoid having to declare a "struct". The 
total length of the returned buffer is written into this variable. 

*/ 

BYTE * Encode(BYTE * jpeg_get_Buf f er , int *length, int * ret_quality, int n_Height, int n_Width, i 
nt n_Bpp, int n_Quality=DEF_QUALITY, int n_Res=DEFAULT_RES, int n_Coding=DEFAULT_CODING) ; 

BYTE * Encode (BYTE * jpeg_get_Buf f er , int *length, int * ret_quality, int n_Height, int n_Width, 
int n_Bpp, float n_Ratio=DEF_RATIO, long n_Time=DEF_TIME, int n_Res=DEFAULT_RES , int n_Coding=DEFAUL 
T_CODING) ; 



/* The decoder needs to have certain information about its input before it processes it. The 
input to the decoder is in the form of a stream of BYTEs consisting of the compressed data 
The height, width and number of colors of the uncon^ressed image need to be specified. The 
pixel-resolution also needs to be specified. The DecodeParam method just serves to collect 
these values before the decoding starts. 
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sn^^Rses the input buffer specified i m 



/* The Decode method decon^^Rses the input buffer specified ix^^^ method DecodeParam and 
returns the uncompressed data as a stream of BYTEs in the form R,G, B, R, G, B. . . . or a 
sequence of Gray values as the case may be. 

*/ 

BYTE * Decode (BYTE *CompressedBuf fer , int length); 

BYTE * ChopWindow(BYTE * who le_str earn, int* height, int* width, int bpp) ; 

BYTE * Resolution_Convertor (BYTE * jpeg_get_Buf f er , int *bpp, int *res, int Height, int *Width) 

}; 
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* jpegint.h 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file provides common declarations for the various JPEG modules. 

* These declarations are considered internal to the JPEG library; most 

* applications using the library shouldn't need to include this file. 
*/ 




/* Declarations for both compression & deconqpression */ 



typedef eniom { /* Operating modes for buffer controllers */ 

JBUF_PASS_THRU, /* Plain stripwise operation */ 

/* Remaining modes require a full-image buffer to have been created */ 
JBUF_SAVE_SOURCE , /* Run source subobject only, save output */ 
JBUF_CRANK_DEST , /* Run dest subobject only, using saved data */ 
JBUF_SAVE_AND_PASS /* Run both subobjects, save output */ 
} J_BUF_MODE; 

/* Values of global_state field (jdapi.c has some dependencies on ordering!) 

after create_compress */ 

start_compress done, write_scanlines OK */ 
start_compress done, write_raw_data OK */ 
jpeg_write_coef f icients done */ 
after create_decoir^ress */ 
reading header markers, no SOS yet */ 
found SOS, ready for start„dec empress */ 
reading multiscan file in start_deconpress*/ 
performing dummy pass for 2 -pass quant */ 
start_decompress done, read_scanlines OK */ 
start_decompress done, read_raw_data OK */ 
expecting jpeg_start_output */ 
looking for SOS/EOI in jpeg_f inish_output */ 
reading file in jpeg_read_coeff icients */ 
looking for EOI in jpeg_f inish_decompress */ 



#def ine 


CSTATE. 


.START 


100 


/* 


#def ine 


CSTATE. 


.SCANNING 


101 


/* 


#def ine 


C STATE. 


.RAW_OK 


102 


/* 


#def ine 


CSTATE. 


.WRCOEFS 


103 


/* 


#def ine 


DSTATE. 


.START 


200 


/* 


#def ine 


DSTATE. 


.INHEADER 


201 


/* 


#def ine 


DSTATE. 


.READY 


202 


/* 


#cgtine 


DSTATE_ 


.PRELOAD 


203 


/* 


#def ine 


DSTATE. 


.PRESCAN 


204 


/* 


#c^£ine 


DSTATE. 


.SCANNING 


205 


/* 


#c^f ine 


DSTATE. 


.RAW_OK 


206 


/* 


# define 


DSTATE. 


.BUFIMAGE 


207 


/* 


#<fef ine 


DSTATE. 


.BUFPOST 


208 


/* 


# de-fine 


DSTATE, 


.RDCOEFS 


209 


/* 


#ctef ine 


DSTATE. 


.STOPPING 


210 


/* 



/fiJDeclarations for compression modules */ 

/* Master control module */ 
sbiuct jpeg_comp_master { 

J=JMETHOD(void, prepare_f or^ass , ( j_compress_ptr cinfo) ) ; 

^^METHOD (void, pass_startup, ( j_compress_ptr cinfo)); 

Hi^METHODCvoid, finish^pass, ( j_compress_ptr cinfo)); 

„|* State variables made visible to other modules */ 

^boolean call^ass_startup; /* True if pass_startup must be called */ 
rboolean is_last_pass ; /* True during last pass */ 

}T 

/* Main buffer control (downsampled-data buffer) */ 
struct jpeg_c_main_contr oiler { 

JMETHOD{void, start^ass, ( j_compress_ptr cinfo, J_BUF_MODE pass_mode)); 
JMETHOD{void, process_data, ( j_compress_ptr cinfo, 

JSAMPARRAY input„buf, JDIMENSION *in_row_ctr, 
JDIMENSION in„rows_avail) ) ; 

}; 

/* Con^ression preprocessing (downsampling input buffer control) */ 
struct jpeg_c_prep_controller { 

JMETHOD(void, start_pass, ( j_compress_ptr cinfo, J„BUF„MODE pass_mode) ) ; 
JMETHOD(void, pre_process_data, ( j_compress jtr cinfo, 

JSAMPARRAY input_buf, 

JDIMENSION *in_row„ctr, 

JDIMENSION in_rows_avail , 

JSAMPIMAGE output_buf, 

JDIMENSION *out„row_group_ctr , 

JDIMENSION out_row_groups„avail) ) ; 

); 

/* Coefficient buffer control */ 
struct jpeg_c_coef_controller { 

JMETHOD(void, start_pass, ( j_compress_ptr cinfo, J„BUF„MODE pass_mode) ) ; 

JMETHOD (boolean, compress_data, ( j_compress_ptr cinfo, 
JSAMPIMAGE input_buf)); 

); 
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/* Colorspace conversion */ 
struct jpeg_color_converter { 




JMETHOD(void, start_pass, ( j_coinpress_ptr cinfo) ) ; 
JMETHOD(void, color_convert , ( j_c empress^ tr cinfo, 

JSAMPARRAY input_buf, JSAMPIMAGE output„buf, 
JDIMENSION output_row, int num_rows) ) ; 

); 

/* Downsampling */ 
struct jpeg_downs ampler { 

JMETHOD{void, start__pass, ( j_compress_ptr cinfo)); 
JMETHOD(void, downsample, ( j_compress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION in_row_index, 
JSAMPIMAGE output_buf, 
JDIMENSION out_row_group_index) ) ; 

boolean need„context_rows ; /* TRUE if need rows above & below */ 

); 

/* Forward DCT (also controls coefficient quantization) */ 
struct jpeg_forward_dct { 

JMETHOD(void, start^ass, ( j_compress_ptr cinfo)); 
/* perhaps this should be an array??? */ 
JMETHOD(void, forward„DCT, ( j_coii^ress_ptr cinfo, 
jpeg_component_inf o * compptr, 
JSAMPARRAY sainple_data, JBLOCKROW coef_blocks, 
JDIMENSION start_row, JDIMENSION start_col, 
JDIMENSION nuirublocks) ) ; 

); 

/^flntropy encoding */ 

stiSict jpeg_entropy_encoder { 
^^^lETHOD (void, start_pass, ( j_coinpress_j)tr cinfo, boolean gather_statistics) ) 
gftlETHOD (boolean, encode_mcu, ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) ) ; 
^]^THOD(void, finish_pass, ( j_compress_ptr cinfo)); 

/'^j^iarker writing */ 
s^uct jpeg_marker_writer { 

^ilMETHOD(void, write_f ile^header , ( j_compress_ptr cinfo)); 

fpMETHOD(void, write_f rame„header , ( j_conipress_ptr cinfo)); 

'iJMETHOD(void, write_scan_header , ( j_coinpress_ptr cinfo)); 

=JMETHOD{void, write_f ile_trailer , ( j_compress_ptr cinfo)); 

l=JMETHOD(void, write_tables_only, ( j_compress_ptr cinfo)); 

'^l* These routines are exported to allow insertion of extra markers */ 
Probably only COM and APPn markers should be written this way */ 

fIjMETHOD (void, write_marker_header , ( j_compress_ptr cinfo, int marker, 

I J'h unsigned int datalen) ) ; 

J^METHOD(void, write_marker_byte, ( j_compress_ptr cinfo, int val)); 



/* Declarations for decompression modules */ 

/* Master control module */ 
struct jpeg_decomp_master { 

JMETHOD(void, prepare_f or„output_pass , ( j_decompress_ptr cinfo)); 

JMETHOD(void, f inish_output_pass , ( j_decoit^ress_ptr cinfo)); 

/* State variables made visible to other modules */ 

boolean is_duramyjass; /* True during 1st pass for 2 -pass quant */ 

}; 

/* Input control module */ 
struct jpeg_input_controller { 

JMETHOD(int, consume_input , ( j_decompress_ptr cinfo)); 

JMETHOD(void, reset_input_controller , ( j„decompress_ptr cinfo)); 

JMETHOD(void, start_input_pass , ( j_decompress_ptr cinfo)); 

JMETHOD(void, f inish_input_pass, ( j_decompress_ptr cinfo)); 

/* State variables made visible to other modules */ 

boolean has_multiple„scans; /* True if file has multiple scans */ 

boolean eoi_reached; /* True when EOI has been consumed */ 

}; 

/* Main buffer control (downs amp led- data buffer) */ 
struct j peg_d_mai n_c on t roller { 

JMETHOD(void, start_pass, ( j_decompress_ptr cinfo, J_BUF_MODE pass„mode) ) ; 

JMETHOD(void, process_data, ( j_dec empress^ tr cinfo, 



JSAMPARRAY ^fcDUt_buf , JDIMENSION *out_row_ctr , 
JDIMENSION ^^rows_avail) ) ; 

/* Coefficient buffer control */ 
struct j peg_d_coef_c on tr oiler { 

JMETHOD(void, start_input_pass, ( j_decompress_ptr cinfo) ) ; 

JMETHOD(int, consuine_data, ( j_decompress_ptr cinfo)); 

JMETHOD(void, start_output_pass , ( j_decompress_ptr cinfo)); 

JMETHOD(int, decompress_data, ( j_decompress_ptr cinfo, 
JSAMPIMAGE output_buf ) ) ; 

/* Pointer to array of coefficient virtual arrays, or NULL if none */ 

jvirt_barray_ptr *coef_arrays ; 

}; 

/* Decompression postprocessing (color quantization buffer control) */ 
struct jpeg_d_post_controller { 

JMETHOD(void, start_pass, ( j_decompress_ptr cinfo, J_BUF_MODE pass_mode) ) ; 
JMETHOD(void, post_process_data, ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, 

JDIMENSION *in_row_group_ctr, 

JDIMENSION in_row_groups_avail, 

JSAMPARRAY output_buf, 

JDIMENSION *out_row_ctr, 

JDIMENSION out_rows_avail) ) ; 

}; 

/* Marker reading & parsing */ 
struct jpeg_inarker_reader { 

JMETHOD(void, reset_marker_reader , ( j_decompress_ptr cinfo)); 

/* Read markers until SOS or EOI . 

f'f Returns same codes as are defined for jpeg_consume_input : 
JPEG_SUSPENDED, JPEG_REACHED_SOS , or JPEG_REACHED_EOI . 

g|IETHOD { int , read_markers , ( j_decompress_ptr cinfo)); 

%* Read a restart marker exported for use by entropy decoder only */ 

^eg_marker_parser_method read„restart_marker; 

.A* State of marker reader nominally internal, but applications 

supplying COM or APPn handlers might like to know the state. 

Hgoolean saw_SOI; /* found SOI? */ 

'boolean saw^SOF; /* found SOF? */ 

=int next_restart_num; /* next restart number expected (0-7) */ 

yansigned int di s carded jDytes; /* # of bytes skipped looking for a marker */ 

/fij Entropy decoding */ 
struct jpeg_entropy_decoder { 

jjMETHOD(void, start_pass, ( j_decompress_ptr cinfo)); 

=^3KETH0D (boolean, decode_mcu, ( j_decompress jtr cinfo, 

f\ JBLOCKROW *MCU_data) ) ; 

/* This is here to share code between baseline and progressive decoders; */ 
/* other modules probably should not use it */ 

boolean insuf f icient_data; /* set TRUE after emitting warning */ 

}; 

/* Inverse DCT (also performs dequantization) */ 
typedef JMETHOD (void, inverse_DCT_method_ptr , 

( j_decon^>ress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 

JSAMPARRAY output_buf, JDIMENSION output_col) ) ; 

struct jpeg„inverse_dct { 

JMETHOD(void, start_pass, ( j_decompress_ptr cinfo)); 

/* It is useful to allow each component to have a separate IDCT method. */ 
inverse_DCT^ethod_ptr inverse„DCT [MAX^COMPONENTS] ; 

}; 

/* Upsampling (note that upsait^ler must also call color converter) */ 
struct jpeg_up sampler { 

JMETHOD(void, start_pass, ( j_decompress_ptr cinfo)); 
JMETHOD (void, upsait^le, ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, 

JDIMENSION * in„row_group_c tr , 

JDIMENSION in_row_groups_avail , 

JSAMPARRAY output_buf, 

JDIMENSION *out_row_ctr, 

JDIMENSION out_rows_avail) ) ; 
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boolean need_context_rows ; TRUE if need rows above & below 

/* Colorspace conversion */ 
struct jpeg_color_deconverter { 

JMETHOD(void, stari:_pass, ( j_decoinpress_ptr cinf o) ) ; 
JMETHOD(void, color_convert, ( j_decon^ress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
JSAMPARRAY output_buf, int num_rows)); 

); 

/* Color quantization or color precision reduction */ 
struct jpeg_color_quantizer { 

JMETHOD(void, start_pass, ( j_decompress_ptr cinfo, boolean is_pre_scan) ) ; 
JMETHOD(void, color_quantize, < j_decompress_ptr cinfo, 

JSAMPARRAY input_buf, JSAMPARRAY output.buf, 
int niain_rows) ) ; 
JMETHOD(void, finish_pass, ( j_decompress_ptr cinfo)); 
JMETHOD(void, new_color_niap, ( j_decon^)ress_ptr cinfo)); 

); 



/* Miscellaneous useful macros */ 
#undef MAX 

idefine MAX(a,b) ((a) > (b) ? (a) : (b) ) 
#undef MIN 

#define MIN(a,b) ((a) < (b) ? (a) : (b) ) 




/^t?e assume that right shift corresponds to signed division by 2 with 
*^5^ounding towards minus infinity. This is correct for typical "arithmetic 
^:^hift*' instructions that shift in copies of the sign bit. But some 
^'C compilers implement » with an unsigned shift. For these machines you 
*,^:^nust define RIGHT_SHIFT_IS_UNSIGNED. 

*^^RIGHT_SHIFT provides a proper signed right shift of an INT32 quantity. 
*"-Jlt is only applied with constant shift counts. SHIFT_TEMPS must be 
♦f^included in the variables of any routine using RIGHT_SHIFT. 

#feidef RIGHT_SHIFT_IS_UNSIGNED 
#Sefine SHIFT_TEMPS INT32 shift_temp; 
idefine RIGHT_SHIFT (x, shf t) \ 
Lh ( (shif t_temp = (x) ) < 0 ? \ 

U (shift_temp » (shf t) ) | ((-((INT32) 0)) « (32-(shft))) : \ 
'-^ (shift_temp » (shf t) ) ) 
#sise 

#define SHIFT„TEMPS 

#^efine RIGHT_SHIFT(x,shft) ( (x) » (shf t) ) 
felidif 



/* Short forms of external names for systems with brain-damaged linkers. */ 



#ifdef NEED_SHORT_EXTERNAL_NAMES 
#define jinit_compress_master jlCompress 
#define jinit_c_master_control jlCMaster 
tdefine jinit_c_main_controller jlCMainC 
#define jinit„c^rep_controller jlCPrepC 
#define jinit_c_coef_controller jlCCoefC 
#define jinit_color_converter jlCColor 
tdefine jinit_downsampler jIDownsampler 
tdefine jinit_f orward_dct jIFDCT 
tdefine jinit_huf f_encoder jIHEncoder 
tdefine jinit_phuf f_encoder jlPHEncoder 
tdefine jinit_marker_writer jIMWriter 
tdefine jinit_master_decompress jIDMaster 
tdefine jinit„d_niain_contr oiler jIDMainC 
tdefine jinit_d_coef ..controller jIDCoefC 
tdefine jinit_d_post_contr oiler jIDPostC 
tdefine jinit_input_controller jllnCtlr 
tdefine jinit_marker_reader jIMReader 
tdefine jinit_huff_de coder jIHDecoder 
tdefine jinit_phuf f_decoder jlPHDecoder 
tdefine jinit_inverse_dct jllDCT 
tdefine jinit_ups ampler jIUpsaitpler 
tdefine jinit„color„de converter jIDColor 
tdefine jinit_lpass„quantizer jllQuant 
tdefine jinit_2pass_quantizer jI2Quant 



4 



MUpsampler 



#define jinit_merged_upsainple:^ 
tdefine jinit_meinory_jngr j 
# define jdiv_roiind_up j 
#define jround_up j Round 

#define jcopy_sample_rows jCopySamples 
tdefine jcopy_block_row jCopyBlocks 
tdefine jzero^far jZeroFar 
tdefine jpeg_zigzag_order jZIGTable 
tdefine jpeg_natural_order jZAGTable 
tendif /* NEED_SHORT_EXTERNAL_NAMES */ 



/* Compression module initialization routines */ 

EXTERN(void) jinit„compress_master JPP ( ( j_compress_ptr cinfo) ) ; 

jinit_c_jnaster_control JPP ( ( j_compress^tr cinfo, 

boolean trans code_only) ) ; 
jinit_c_main_controller JPP ( ( j_compress_ptr cinfo, 

boolean need_full_buf f er) ) ; 
jinit_c_prep„contr oiler JPP ( ( j_compress_ptr cinfo, 

boolean need_f ull_buf f er) ) ; 
jinit_c_coef„controller JPP ( <j_compress_ptr cinfo, 

boolean need_full_buf f er) ) ; 
jinit_color_converter JPP ( ( j_compress_ptr cinfo)); 
jinit_downs ampler JPP ( ( j„compress_ptr cinfo)); 
jinit_f orward_dct JPP ( ( j_compress_j>tr cinfo)); 
jinit_huf f_encoder JPP ( ( j_compress^tr cinfo)); 
jinit_phuff ..encoder JPP( ( j_compress_ptr cinfo) ) ; 
jinit_marker_writer JPP( ( j_compress_ptr cinfo) ) ; 
/* Decompression module initialization routines */ 
EXTERN(void) jinit_master_decompress JPP ( ( j_deconpress_ptr cinfo)) 
jinit_d_main_c on tr oiler JPP ( { j_decompress_ptr cinfo, 

boolean need_f ull_buf f er) ) ; 
jinit_d_coef_contr oiler JPP ( ( j„deconpress_ptr cinfo, 

boolean need_full„buf f er) ) ; 
jinit_d_post_contr oiler JPP ( ( j_decompress_ptr cinfo, 

boolean need„f ull_buf f er) ) ; 
jinit_input_controller JPP ( ( j_decompress_ptr cinfo)); 
jinit_marker_reader JPP( ( j_decompress_ptr cinfo) ) ; 
jinit_huf f_decoder JPP( ( j_decompress_ptr cinfo)); 
jinit_phuf f_decoder JPP( ( j_decompress_ptr cinfo) ) ; 
jinit_inverse„dct JPP ( ( j_decompress_ptr cinfo)); 
jinit_upsampler JPP ( ( j_decompress_ptr cinfo)); 
jinit_color_deconverter JPP ( ( j_decortpress_ptr cinfo)) 
jinit_lpass_quantizer JPP( ( j_decompress_ptr cinfo)); 
jinit_2pass_quantizer JPP ( ( j_decompress_ptr cinfo)); 
jinit_merged_ups ampler JPP ( ( j_decompress_ptr cinfo)); 
/^^ Memory manager initialization */ 
E^l'ERN(void) jinit_memory_mgr JPP ( ( j„common_ptr cinfo)); 



EXTERN (void) 

EXTERN (void) 

EXTERN (void) 

EXTERN (void) 

EXTERN (void) 
EXTERN (void) 
EXTERN (void) 
EXTERN (void) 
EXTERN (void) 
EXTERN (void) 



EXTERN (void) 

E3h:|:RN(void) 

E^ERN(void) 

Ejlfe:RN(void) 
EjgI!ERN(void) 
E^ERN(void) 
E#PERN(void) 
EJ^ERN(void) 
E3SERN(void) 
EOTERN(void) 
EXTERN (void) 
EXTERN (void) 
EXTERN (void) 



/♦^Utility routines in jutils.c */ 

^jERNdong) jdiv_rovind_up JPP ((long a, long b) ) ; 

ECTERN(long) jro\ind_up JPP ((long a, long b) ) ; 

Eci'ERNivoid) jcopy_sainple_rows JPP ( ( JSAMPARRAY input_array, int source_row, 

JSAMPARRAY output_array , int dest_row, 

int num^rows, JDIMENSION num_cols)); 
EXTERN (void) jcopy_block_row JPP ( ( JBLOCKROW input_row, JBLOCKROW output_row, 

JDIMENSION num_blocks) ) ; 
EXTERN(void) jzero_far JPP ( (void * target, size_t bytestozero) ) ; 
/* Constant tables in jutils.c */ 

tif 0 /* This table is not actually needed in v6a */ 

extern const int jpeg_zigzag_order [ ] ; /* natural coef order to zigzag order */ 

tendif 

extern const int jpeg„natural_order [ } ; /* zigzag coef order to natural order */ 



/* Suppress undefined- structure complaints if necessary. */ 
tifdef INCOMPLETE_TYPES_BROKEN 

tifndef AM_J1EM0RY_MANAGER /* only jmemmgr.c defines these */ 
struct jvirt_sarray_control { long dummy; } ; 
struct jvirt_barray_control { long dummy; ) ; 
tendif 

tendif /* INCOMPLETE_TYPES_BROKEN */ 
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* jpeglib.h 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file defines the application interface for the JPEG library. 

* Most applications using the library need only include this file, 

* and perhaps jerror.h if they want to know the exact error codes. 
*/ 

#ifndef JPEGLIB.H 
#define JPEGLIB_H 

/* 

* First we include the configuration files that record how this 

* installation of the JPEG library is set up. jconfig.h can be 

* generated automatically for many systems. jmorecfg.h contains 

* manual configuration options that most people need not worry about. 
*/ 

#ifndef JCONFIG_INCLUDED /* in case jinclude.h already did */ 
iinclude "jconfig.h" /* widely used configuration options */ 

#endif 

# include "jmorecfg.h" /* seldom changed options */ 

#ifndef STDIO_H 
#include <stdio.h> 
#define STDIO_H 
#endif 

/*" Vers ion ID for the JPEG library, 
^^ight be useful for tests like "#if JPEG„LIB„VERSION >= 60". 

#(fe]fine JPEG_LIB_VERSION 62 /* Version 6b */ 

/*::Various constants determining the sizes of things. 
€JA11 of these are specified by the JPEG standard, so don't change them 
Hsif you want to be compatible. 
*7 

#S6fine DCTSIZE 8 /* The basic DCT block is 8x8 samples */ 

#^fine DCTSIZE2 64 /* DCTSIZE squared; # of elements in a block */ 

#§4fine NUM_QUANT_TBLS 4 /* Quantization tables are numbered 0..3 */ 

#gefine NUM_HUFF_TBLS 4 /* Huffman tables are numbered 0..3 */ 

tdefine NUM_ARITH_TBLS 16 /* Arith-coding tables are numbered 0 . . 15 */ 

#d|fine MAX_COMPS_IN_SCAN 4 /* JPEG limit on # of components in one scan */ 
#aefine MAX.SAMP_FACTOR 4 /* JPEG limit on sampling factors */ 

/fl Unfortunately, some bozo at Adobe saw no reason to be bound by the standard; 
^* the PostScript DCT filter can emit files with many more than 10 blocks/MCU. 

* If you happen to run across such a file, you can up D_MAX_BLOCKS_IN_MCU 

* to handle it. We even let you do this from the jconfig.h file. However, 

* we strongly discourage changing C_MAX_BLOCKS_IN_MCU ; just because Adobe 

* sometimes emits noncon^>liant files doesn't mean you should too. 
*/ 

#define C_MAX_BLOCKS_IN__MCU 10 /* compressor's limit on blocks per MCU */ 
#ifndef D_MAX_BLOCKS_IN__MCU 

#define D_MAX_BLOCKS_IN„MCU 10 /* decompressor's limit on blocks per MCU */ 
#endif 



/* Data structures for images (arrays of samples and of DCT coefficients) . 

* On 80x86 machines, the image arrays are too big for near pointers, 

* but the pointer arrays can fit in near memory. 
*/ 

typedef JSAMPLE *JSAMPROW; /* ptr to one image row of pixel samples. */ 
typedef JSAMPROW *JSAMPARRAY; /* ptr to some rows (a 2-D sample array) */ 
typedef JSAMPARRAY *JSAMPIMAGE; /* a 3-D sample array: top index is color */ 

typedef JCOEF JBLOCK [DCTSIZE2 ] ; /* one block of coefficients */ 

typedef JBLOCK *JBLOCKROW; /* pointer to one row of coefficient blocks */ 

typedef JBLOCKROW * JBLOCKARRAY; /* a 2-D array of coefficient blocks */ 

typedef JBLOCKARRAY *JBLOCKIMAGE; /* a 3-D array of coefficient blocks */ 

typedef JCOEF *JCOEFPTR; /* useful in a couple of places */ 



1 



I* Types for JPEG conpression^^^|uiieters and working tcibles. */ 

/* DCT coefficient quantization tables. */ 
typedef struct { 

/* This array gives the coefficient quantizers in natural array order 

* (not the zigzag order in which they are stored in a JPEG DQT marker) . 

* CAUTION: IJG versions prior to v6a kept this array in zigzag order. 
*/ 

UINT16 quantval [DCTSIZE2] ; /* quantization step for each coefficient */ 
/* This field is used only during compression. It's initialized FALSE when 

* the table is created, and set TRUE when it's been output to the file. 

* You could suppress output of a table by setting this to TRUE. 

* (See jpeg_suppress_tables for an exair^tle.) 
*/ 

boolean sent_table; /* TRUE when table has been output */ 

} JQUANT.TBL; 



/* Huffman coding tables. */ 
typedef struct { 

/* These two fields directly represent the contents of a JPEG DHT marker */ 
UINT8 bits [17); /* bits[k] - # of symbols with codes of */ 

/* length k bits; bits[0} is unused */ 
UINT8 huf fval [256] ; /* The symbols, in order of incr code length */ 

/* This field is used only during con^ression. It's initialized FALSE when 

* the table is created, and set TRUE when it's been output to the file. 

* You could suppress output of a table by setting this to TRUE, 
r^* (See jpeg_suppress„tables for an example.) 

"i^oolean sent„table; /* TRUE when table has been output */ 

) p3PUFF_TBL; 

/*^jBasic info about one component (color channel) . */ 

tv^edef struct { 
^4i* These values are fixed over the whole image. */ 
li>^* For compression, they must be supplied by parameter setup; */ 
'7* for decompression, they are read from the SOF marker. */ 
"int component_id; /* identifier for this component (0..255) */ 

Lint component_index; /* its index in SOF or cinf o->comp„inf o [ ] */ 

pint h_sanp_f actor; /* horizontal sampling factor (1..4) */ 

^int v_san^_f actor; /* vertical sampling factor (1. .4) */ 

flint quant_tbl_no; /* quantization table selector (0..3) */ 

These values may vary between scans. */ 
_.T * For compression, they must be supplied by parameter setup; */ 
Lj^* for decompression, they are read from the SOS marker. */ 
py* The decompressor output side may not use these variables. */ 
"Int dc_tbl„no; /* DC entropy table selector (0..3) */ 

int ac_tbl_no; /* AC entropy table selector (0..3) */ 

/* Remaining fields should be treated as private by applications. */ 

/* These values are con^juted during compression or decon^ression startup: */ 
/* Component's size in DCT blocks. 

* Any dummy blocks added to complete an MCU are not counted; therefore 

* these values do not depend on whether a scan is interleaved or not. 
*/ 

JDIMENSION width_in_blocks ; 
JDIMENSION heigh t_in_blocks; 

/* Size of a DCT block in samples. Always DCTSIZE for compression. 

* For decompression this is the size of the output from one DCT block, 

* reflecting any scaling we choose to apply during the IDCT step. 

* Values of 1,2,4,8 are likely to be supported. Note that different 

* components may receive different IDCT scalings. 
*/ 

int DCT_scaled_size; 

/* The downsait^led dimensions are the component's actual, unpadded number 

* of samples at the main buffer (preprocessing/ compression interface) , thus 

* downsampled_width = ceil (image_width * Hi/Hmax) 

* and similarly for height. For decompression, IDCT scaling is included, so 

* downsampled_width = ceil (image_width * Hi/Hmax * DCT_scaled_size/ DCTSIZE) 
*/ 

JDIMENSION downsampled_width; /* actual width in samples */ 

JDIMENSION downsampled_height; /* actual height in samples */ 

/* This flag is used only for decoit^ression. In cases where some of the 
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* coit^onents will be igrnorej^^g grayscale output from YCbCr i 

* we can skip most conputa^^B for the unused components. 

boolean component_needed; /* do we need the value of this component? */ 

/* These values are computed before starting a scan of the component. */ 
/* The decompressor output side may not use these variables. */ 
int MCU_width; /* number of blocks per MCU, horizontally */ 

int MCU_height; /* number of blocks per MCU, vertically */ 

int MCU_blocks; /* MCU_width * MCU_height */ 

int MCU_saitple_width; /* MCU width in samples, MCU_width*DCT_scaled_size */ 

int last_col_width; /* # of non-dummy blocks across in last MCU */ 

int last_row_height; /* # of non-dummy blocks down in last MCU */ 

/* Saved quantization table for cort^onent; NULL if none yet saved. 

* See jdinput.c comments about the need for this information. 

* This field is currently used only for decompression. 
*/ 

JQUANT_TBL * quant_table; 

/* Private per-component storage for DCT or IDCT subsystem. */ 
void * dct_table; 
} jpeg_component_inf o; 




/* The script for encoding a multiple-scan file is an array of these: */ 
typedef struct { 

int comps_in_sccLn; /* number of components encoded in this scan */ 

int component_index[MAX_COMPS_IN_„SCAN] ; /* their SOF/con^_inf o [ 3 indexes */ 
int Ss, Se; /* progressive JPEG spectral selection parms */ 

f^pt Ah, Al; /* progressive JPEG successive approx. parms */ 

} ~^eg_scan_inf o; 

/^^rhe decompressor can save APPn and COM markers in a list of these: */ 

t^edef struct jpeg_marker_struct * jpeg_saved_marker_ptr ; 

statue t jpeg_marker_struct { 
tlP®5— Scived_marker_ptr next; /* next in list, or NULL */ 
-AlINTS marker; /* marker code: JPEG_COM, or JPEG_J^PPO+n */ 

fninsigned int original_length; /* # bytes of data in the file */ 
'unsigned int data_length; /* # bytes of data saved at dataC] */ 
=JOCTET * data; /* the data contained in the marker */ 

Li* the marker length word is not counted in data_length or original_length */ 

/RJ Known color spaces. */ 

t;j^edef enum { 
Li JCS_UNKNOWN, 
P% JCS_GRAYSCALE, 
JCS_RGB, 
JCS_YCbCr, 
JCS_CMYK, 
JCS_YCCK 
} J„COLOR_SPACE; 



/* error/unspecified */ 

/* monochrome */ 
/* red/green/blue */ 
/* Y/Cb/Cr (also known as YUV) */ 
/* C/M/Y/K */ 
/* Y/Cb/Cr/K */ 



/* DCT/IDCT algorithm options. */ 



typedef enum { 

JDCT_ISLOW, /* slow but accurate integer algorithm */ 

JDCT_IFAST, /* faster, less accurate integer method */ 

JDCT_FLOAT /* floating-point: accurate, fast on fast HW */ 
} J_DCT_METHOD; 



#ifndef JDCT_DEFAULT 
#define JDCT_DEFAULT 
#endif 

#ifndef JDCT_FASTEST 
#define JDCT_FASTEST 
#endif 



/* may be overridden in jconfig.h 
JDCT_ISLOW 

/* may be overridden in jconfig.h 
JDCT„IFAST 



/* Dithering options for decort^ression. */ 

typedef enxrni { 

JDITHER„NONE , /* no dithering */ 

JDITHER_ORDERED, /* single ordered dither */ 

JDITHER^FS /* Floyd-Steinberg error diffusion dither */ 

} J_DITHER_J10DE; 
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/* Cornmon fields between JPEG ^B^ression and decompression master ^BKicts , */ 



tdefine jpeg_common_f ields \ 

struct jpeg_error_mgr * err; /* Error handler module */\ 
struct jpeg_memory„mgr * mem; /* Memory manager module */\ 

struct jpeg_progress„mgr * progress; /* Progress monitor, or NULL if none */\ 
void * client_data; /* Available for use by application */\ 

boolean is_de compress or; /* So common code can tell which is which */\ 
int global_state /* For checking call sequence validity */ 

/* Routines that are to be used by both halves of the library are declared 

* to receive a pointer to this structure. There are no actual instances of 

* jpeg_common_struct, only of jpeg_coit^ress_struct and jpeg_decompress_struct . 
*/ 

struct jpeg_common_struct { 

Dpeg-.common_f ields; /* Fields common to both master struct types */ 

/* Additional fields follow in an actual jpeg_compress„struct or 

* jpeg_decompress„struct . All three structs must agree on these 

* initial fields! (This would be a lot cleaner in C++.) 
*/ 

}; 

typedef struct jpeg_common_struct * j_common_ptr ; 
typedef struct jpeg_compress_struct * j_compress_ptr ; 
typedef struct jpeg_decompress_struct * j_decompress_ptr ; 



/* Master record for a compression instance */ 

stgiict jpeg_compress_struct { 
.M>eg_common_f ields ; /* Fields shared with jpeg_decompress_struct */ 

01* Destination for compressed data */ 
^sttruct jpeg_destination_mgr * dest; 

yl* Description of source image these fields must be filled in by 

,n* outer application before starting compression. in_color_space must 
^f* be correct before you can even call jpeg_set_def aults ( ) . 

UJ*/ 

'JDIMENSION image_width; /* input image width */ 
=JDIMENSION image_height ; /* input image height */ 

Lint input_components ; /* # of color components in input image */ 

^nf_COLOR_SPACE in_color_space; /* colorspace of input image */ 

ffdouble input_gamma; /* image gamma of input image */ 

Jf* Compression parameters these fields must be set before calling 

U* j peg_s tar t_c empress 0 . We recommend calling jpeg_set_def aults ( ) to 
£j* initialize everything to reasonable defaults, then changing anything 
the application specifically wants to change. That way you won't get 

* burnt when new parameters are added. Also note that there are several 

* helper routines to simplify changing parameters. 
*/ 

/* ### I added this index variable as a counter to the conpressed buffer.*/ 
int index; 

int data_precision; /* bits of precision in image data */ 

int n\im_components ; /* # of color components in JPEG image */ 

J_COLOR_SPACE jpeg_color_space; /* colorspace of JPEG image */ 

jpeg_component_inf o * comp_info; 

/* comp_info[i] describes component that appears i'th in SOF */ 
JQUANT_TBL * quant_tbl_ptrs [NUM_QUANT_TBLS] ; 

/* ptrs to coefficient quantization tables, or NULL if not defined */ 

JHUFF_TBL * dc_huff„tbl_ptrs[NUM_HUFF_TBLS] ; 
JHUFF_TBL * ac_huf f„tbl_ptrs[NUM_HUFF_TBLS] ; 
/* ptrs to Huffman coding tables, or NULL if not defined */ 

UINT8 arith_dc_L[NUM_ARITH_TBLS] ; /* L values for DC arith-coding tables */ 
UINT8 arith_dc_U[NUM_ARITH_TBLS] ; /* U values for DC arith-coding tables */ 
UINT8 arith„ac_K[NUM_ARITH_TBLS] ; /* Kx values for AC arith-coding tables */ 

int num_scans; /* # of entries in scan_info array */ 
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const jpeg_scan_info * scanJg^; /* script for multi-scan file,^^^JULL */ 
/* The default value of sca^^Ko is NULL, which causes a single^^Hi 

* sequential JPEG file to MBBaitted. To create a multi-scan fnPr 

* set niiituscans and scan_info to point to an array of scan definitions. 
*/ 

boolean raw_data_in; /* TRUE=caller supplies downsampled data */ 

boolean arith_code; /* TRUE=arithmetic coding, FALSE=Huf fman */ 

boolean op timiz encoding; /* TRUE=optimize entropy encoding parms */ 
boolean CCIR601_sampling; /* TRUE= first samples are cos i ted */ 
int smoothing^factor; /* 1..100, or 0 for no input smoothing */ 

J_DCT_METHOD dct_method; /* DCT algorithm selector */ 

/* The restart interval can be specified in absolute MCUs by setting 

* restart_interval, or in MCU rows by setting restart_in„rows 

* (in which case the correct restart_interval will be figured 

* for each scan) . 
*/ 

unsigned int restart_interval ; /* MCUs per restart, or 0 for no restart */ 
int restart_in_rows; /* if > 0, MCU rows per restart interval */ 

/* Parameters controlling emission of special markers. */ 

boolean write_JFIF_header ; /* should a JFIF marker be written? */ 
UINT8 JFIF_jtiajor_version; /* What to write for the JFIF version number */ 
UINT8 JFIF _jninor_vers i on ; 

/* These three values are not used by the JPEG code, merely copied */ 
/* into the JFIF APPO marker. density_unit can be 0 for unknown, */ 
/* 1 for dots/inch, or 2 for dots/cm. Note that the pixel aspect */ 
/* ratio is defined by X_density/Y_density even when density_unit=0 . */ 

JJINT8 density_unit ; /* JFIF code for pixel size units */ 

flJiNTie X_density; /* Horizontal pixel density */ 

.flINTie Y_density; /* Vertical pixel density */ 

boolean write_Adobe_marker ; /* should an Adobe marker be written? */ 

if4* State variable: index of next scanline to be written to 

r\* jpeg_write_scanlines ( ) . Application may use this to control its 

'''^* processing loop, e.g., "while (next_scanline < image_height) " . 

i:n*/ 

^fDIMENSION next_scanline; /* 0 image_height-l */ 

Hi 

'^'/* Remaining fields are known throughout compressor, but generally 
~ * should not be touched by a surrounding application. 

H*/ 

~t* 

* These fields are confuted during compression startup 
Sj */ 

^boolean progressive_mode; /* TRUE if scan script uses progressive mode */ 
^4nt max_h_samp_f actor ; /* largest h_sait^)_f actor */ 
CjLnt max_v_samp_f actor ; /* largest v_samp_f actor */ 

JDIMENSION total_iMCU_rows; /* # of iMCU rows to be input to coef ctlr */ 
/* The coefficient controller receives data in units of MCU rows as defined 

* for fully interleaved scans (whether the JPEG file is interleaved or not) . 

* There are v_samp_f actor * DCTSIZE sample rows of each component in an 

* "iMCU" (interleaved MCU) row. 
*/ 

/* 

* These fields are valid during any one scan. 

* They describe the components and MCUs actually appearing in the scan. 
*/ 

int comps_in_scan; /* # of JPEG components in this scan */ 

jpeg_component_inf o * cur_comp_inf o [MAX_COMPS_IN_SCAN] ; 

/* *cur_comp_info[i] describes component that appears i'th in SOS */ 

JDIMENSION MCUs_per_rowr /* # of MCUs across the image */ 
JDIMENSION MCU_rows_in_scan; /* # of MCU rows in the image */ 

int blocks_in^CU; /* # of DCT blocks per MCU */ 

int MCU_membership[C_MAX_BLOCKS_IN_MCUl ; 

/* MCU_membership E i ] is index in cur_comp_inf o of component owning */ 
/* i'th block in an MCU */ 

int Ss , Se, Ah, Al ; /* progressive JPEG parameters for scan */ 

/* 

* Links to compression subobjects (methods and private variables of modules) 
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*/ 

struct 
struct 
struct 



j peg_c omp_jnas t e r 
j peg_c_jna i n_c on t r o 1 1 
jpeg_c_prep_cont roller 



lel^F n 



main; 

prep; 

struct jpeg_c_coef_contr oiler * coef; 
struct jpeg.jnarker_writer * marker; 
struct jpeg_color_converter * cconvert; 
struct jpeg_downsanpler * downsait^le; 
struct jpeg_f orward_dct * fdct; 
struct jpeg„entropy_encoder * entropy; 

jpeg_scan_info * script_space; /* workspace for jpeg_siir^le_progression */ 
int script_space_size; 



/* Master record for a decompression instance */ 

struct j peg_de compresses true t { 

jpeg_common_f ields; /* Fields shared with jpeg_coiipress_struct */ 

/* Source of compressed data */ 
struct jpeg„sourcejngr * src; 

/* Basic description of image filled in by jpeg_read_header { ) . */ 

/* Application may inspect these values to decide how to process image. */ 

JDIMENSION image_width; /* nominal image width (from SOF marker) */ 
JDIMENSION image_height; /* nominal image height */ 
int num_components ; /* # of color components in JPEG image */ 

J_COLOR_SPACE jpeg_color_space; /* colorspace of JPEG image */ 

fyt* Decompression processing parameters these fields must be set before 

calling jpeg_start_decompress ( ) . Note that jpeg_read„header ( ) initializes 
%h them to default values. 

'^y-COLOReSPACE out„color_space; /* colorspace for output */ 

.Unsigned int scale_num, scale_denom; /* fraction by which to scale image */ 

Jlouble output_gamma; /* image gamma wanted in output */ 

'boolean buf f ered_image; /* TRUE=multiple output passes */ 
= boolean raw_data_out ; /* TRUE=downsampled data wanted */ 

^J_DCT.JffiTHOD dct_method; /* IDCT algorithm selector */ 
^boolean do_fancy_ups amp ling; /* TRUE=apply fancy upsampling */ 
nboolean do_block_smoothing; /* TRUE=apply interblock smoothing */ 

^boolean quant i2e_colors; /* TRUE=colormapped output wanted */ 
Qy* the following are ignored if not quantize„colors : */ 
,«iT_DITHER_MODE dither_mode; /* type of color dithering to use */ 
^^)oolean two_pass_quantize; /* TRUE=use two-pass color quantization */ 

int desired_number_of_colors; /* max # colors to use in created colormap */ 

/* these are significant only in buf fered- image mode: */ 

boolean enable_lpass_quant ; /* enable future use of 1-pass quantizer */ 
boolean enable_external_quant; /* enable future use of external colormap */ 
boolean enable_2pass_quant ; /* enable future use of 2 -pass quantizer */ 

/* Description of actual output image that will be returned to application. 

* These fields are confuted by jpeg_start_decompress ( ) . 

* You can also use jpeg_calc_output_dimensions ( ) to determine these values 

* in advance of calling jpeg_start_decompress ( ) . 
*/ 

JDIMENSION output_width; /* scaled image width */ 
JDIMENSION output_height; /* scaled image height */ 

int out_color_components ; /* # of color components in out_color_space */ 

int output_coirponents ; /* # of color components returned */ 

/* output_components is 1 (a colormap index) when quantizing colors; 

* otherwise it equals out„color_components . 
*/ 

int rec_outbuf_height; /* min recommended height of scanline buffer */ 
/* If the buffer passed to jpeg_read_scanlines ( ) is less than this many rows 

* high, space and time will be wasted due to unnecessary data copying. 

* Usually rec_outbuf_height will be 1 or 2 , at most 4. 
*/ 

/* When quantizing colors, the output colormap is described by these fields. 

* The application can supply a colormap by setting colormap non-NULL before 
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* calling jpeg_start_decomQ^^^; otherwise a colormap is created^ 

* jpeg_start_decoii^ress or^^Hr__start_output . fl 

* The map has out_color_coi^lKnts rows and actual_nuinber_of_coM 
*/ 

int actual_nuinber_of_colors; /* number of entries in use */ 
JSAMPARRAY colormap; /* The color map as a 2-D pixel array */ 




columns . 
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/* State variables: these variables indicate the progress of decon^ression. 

* The application may examine these but must not modify them. 
*/ 

/* Row index of next scanline to be read from jpeg_read_scanlines ( ) . 

* Application may use this to control its processing loop, e.g., 

* "while (output_scanline < output_height) " . 
*/ 

JDIMENSION output_scanline; /* 0 . . output_height-l */ 

/* Current input scan number and number of iMCU rows con?)leted in scan. 

* These indicate the progress of the decompressor input side. 
*/ 

int input_scan_number; /* Number of SOS markers seen so far */ 
JDIMENSION input_iMCU_row; /* Number of iMCU rows coit^leted */ 

/* The "output scan number" is the notional scan being displayed by the 

* output side. The decompressor will not allow output scan/row number 

* to get ahead of input scan/ row, but it can fall arbitrarily far behind. 
*/ 

int output_scan_number; /* Nominal scan number being displayed */ 
JDIMENSION output„iMCU_row; /* Number of iMCU rows read */ 

_/* Current progression status. coef_bits [c] [i ] indicates the precision 
r]* with which component c's DCT coefficient i (in zigzag order) is known. 
JJ> It is -1 when no data has yet been received, otherwise it is the point 

transform (shift) value for the most recent scan of the coefficient 
Ol* (thus, 0 at completion of the progression) . 
f^* This pointer is NULL when reading a non-progressive file, 
.^t* / 

H^t (*coef_bits) [DCTSIZE2] ; /* -1 or current Al value for each coef */ 

ll* Internal JPEG parameters the application usually need not look at 

UJ* these fields. Note that the decompressor output side may not use 
nj* any parameters that can change between scans. 

UV* Quantization and Huffman tables are carried forward across input 
datastreams when processing abbreviated JPEG datastreams. 

Hi 

SJQUANT_TBL * quant_tbl_ptrs [NUM_QUANT_TBLS] ; 

.=1* ptrs to coefficient quantization tables, or NULL if not defined */ 

C^THUFF.TBL * dc_huf f_tbl_ptrs [NUM_HUFF_TBLS] ; 
~JHUFF_TBL * ac_huff_tbl_ptrs[NUM_HUFF_TBLS] ; 
/* ptrs to Huffman coding tables, or NULL if not defined */ 

/* These parameters are never carried across datastreams, since they 

* are given in SOF/SOS markers or defined to be reset by SOI. 
*/ 

int data_precision; /* bits of precision in image data */ 

jpeg_component_info * comp_info; 

/* comp_info[i] describes component that appears i'th in SOF */ 

boolean progressive^mode; /* TRUE if SOFn specifies progressive mode */ 
boolean arith_code; /* TRUE=arithmetic coding, FALSE=Huf fman */ 

UINT8 arith_dc_L[NUM_ARITH_TBLS] ; /* L values for DC arith-coding tables */ 
UINT8 arith_dc_U[NUM_ARITH_TBLS] ; /* U values for DC arith-coding tables */ 
UINT8 arith_ac_K[NUM_ARITH_TBLS] ; / * Kx values for AC arith-coding tables */ 

unsigned int restart_interval ; /* MCUs per restart interval, or 0 for no restart */ 

/* These fields record data obtained from optional markers recognized by 

* the JPEG library. 
*/ 

boolean saw_JFIF_marker; /* TRUE iff a JFIF APPO marker was found */ 

/* Data copied from JFIF marker; only valid if saw_JFIF_marker is TRUE: */ 

UINT8 JFIF_major_version; /* JFIF version number */ 

UINT8 JFIF_minor_version; 
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UINT8 density_\init; /^MUIF code for pixel size units */ 

UINT16 X_density; /* Ho^^^tal pixel density */ 

UINT16 Y_density; /* Vej^REkl pixel density */ 

boolean saw_Adobe_marker; /* TiuE iff an Adobe APP14 marker was fouiid */ 
UINT8 Adobe_transf orm; /* Color transform code from Adobe marker */ 



boolean CCIR601_sairqoling; /* TRUE=first san^les are cosited */ 

/* Aside from the specific data retained from APPn markers known to the 

* library, the uninterpreted contents of any or all APPn and COM markers 

* can be saved in a list for examination by the application. 
*/ 

jpeg_saved_marker_ptr marker_list; /* Head of list of saved markers */ 

/* Remaining fields are known throughout decompressor, but generally 

* should not be touched by a surrounding application. 
*/ 

/* 

* These fields are coii$)uted during decompression startup 
*/ 

int max_h_samp_f actor; /* largest h_samp_f actor */ 
int max_v_samp_f actor; /* largest v„samp_f actor */ 

int min_DCT_scaled„size; /* smallest DCT_scaled_size of any component */ 

JDIMENSION total_iMCU_rows ; /* # of iMCU rows in image */ 

/* The coefficient controller's input and output progress is measured in 

* units of "iMCU" (interleaved MCU) rows. These are the Scune as MCU rows 

* in fully interleaved JPEG scans, but are used whether the scein is 

* interleaved or not. We define an iMCU row as v_samp_f actor DCT block 
r'* rows of each coirponent. Therefore, the IDCT output contains 

Zl* v_samp_f actor *DCT_scaled_size sample rows of a component per iMCU row. 

.jJSAMPLE * sample_range_limit; /* table for fast range -limiting */ 

'H* 

,r^* These fields are valid during any one scan. 

"^f* They describe the components and MCUs actually appearing in the scan. 
^Jl* Note that the decompressor output side must not use these fields. 

nl*/ 

int comps_in_scan; /* # of JPEG components in this scan */ 

= jpeg_component„inf o * cur_comp_inf o [MAX_COMPS_IN_SCAN] ; 
LY* *cur_comp_inf o [i] describes component that appears i'th in SOS */ 

^I'DIMENSION MCUs_per„row; /* # of MCUs across the image */ 
IsihDIMENSION MCU„rows_in_scan; /* # of MCU rows in the image */ 

— H 

^int blocks_in^CU; /* # of DCT blocks per MCU */ 

L^nt MCU_membership[D_MAX_BLOCKS_IN_MCU] ; 

pV* MCU_membership [ i ] is index in cur_comp_inf o of component owning */ 
~-/* i'th block in an MCU */ 

int Ss, Se, Ah, Al; /* progressive JPEG parameters for scan */ 

/* This field is shared between entropy decoder and marker parser. 

* It is either zero or the code of a JPEG marker that has been 

* read from the data source, but has not yet been processed. 
*/ 

int unread_jaarker ; 
/* 

* Links to decompression subobjects (methods, private variables of modules) 
*/ 

struct jpeg„decomp_master * master; 
struct jpeg„d_jnain_controller * main; 
struct jpeg_d_coef_contr oiler * coef; 
struct jpeg_d__post_controller * post; 
struct jpeg_input_cont roller * inputctl; 
struct jpeg_marker_reader * marker; 
struct jpeg_entropy_de coder * entropy; 
struct jpeg_inverse„dct * idct; 
struct jpeg_upsampler * upsample; 
struct jpeg_color_deconverter * cconvert; 
struct jpeg_color_quantizer * cquantize; 



"Object" declarations for JPEG modules that may be supplied or called 
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^ directly by the surroundinc^^^lication. 

^ As with all objects in thej^^ft library, these structs only def^^Khe 
^ publicly visible methods aiaBJstate variables of a module. AddiSBBal 
^ private fields may exist after the pxiblic ones. 



/* Error handler object */ 

struct jpeg_error_mgr { 

/* Error exit handler: does not return to caller */ 
JMETHOD(void, error_exit, ( j_common_j>tr cinfo) ) ; 
/* Conditionally emit a trace or warning message */ 
JMETHOD(void, emit_message, ( j_common__ptr cinfo, int msg_level)); 
/* Routine that actually outputs a trace or error message */ 
JMETHOD(void, output_message, ( j_common_ptr cinfo)); 

/* Format a message string for the most recent JPEG error or message */ 
JMETHOD(void, f ormat_message, ( j_common_ptr cinfo, char * buffer)); 
#define JMSG_LENGTH_MAX 200 /* recommended size of f orTnat_message buffer */ 
/* Reset error state variables at start of a new image */ 
JMETHOD (void, reset_error_mgr, ( j_common_ptr cinfo)); 

/* The message ID code and any parameters are saved here. 

* A message can have one string parameter or up to 8 int parameters. 
*/ 

int msg_code; 
#define JMSG_STR_PAR101AX 80 
iinion { 
int i[8] ; 

char s [ JMSG_STR_PARM.J1AX] ; 
} msg_j)arm; 

If* Standard state variables for error facility */ 

Q3it trace_level; /* max msg^level that will be displayed */ 

For recoverable corrupt-data errors, we emit a warning message, 
'-J* but keep going unless emit_message chooses to abort. emit_message 
.jl* should count warnings in num_warnings . The surrounding application 
'^f* can check for bad data by seeing if nuituwarnings is nonzero at the 
Ui* end of processing. 

'long nuiruwarnings ; /* number of corrupt-data warnings */ 

Ui* These fields point to the table (s) of error message strings. 
L^, * An application can change the table pointer to switch to a different 
^J* message list (typically, to change the language in which errors are 
nJ* reported). Some applications may wish to add additional error codes 
I_ '5 * that will be handled by the JPEG library error mechanism; the second 
table pointer is used for this purpose. 

rj * 

p== * First table includes all errors generated by JPEG library itself. 
'-^ * Error code 0 is reserved for a "no such error string** message. 
*/ 

const char * const * jpeg„message_ table; /* Library errors */ 

int last_jpeg_message; /* Table contains strings 0 .. las t_jpeg_mes sage */ 

/* Second table can be added by application (see cjpeg/djpeg for example) . 

* It contains strings numbered f irst_addon_message. . last_addon_message . 
*/ 

const char * const * addon„message_ table; /* Non- library errors */ 
int f irst_addon_message; /* code for first string in addon table */ 
int last_addon_message; /* code for last string in addon table */ 



/* Progress monitor object */ 

struct jpeg_progress_p\gr { 

JMETHOD(void, progressjnonitor , ( j_common_ptr cinfo)); 

long pass_counter ; /* work units completed in this pass */ 

long pass_limit; /* total number of work units in this pass */ 
int completed_passes; /* passes completed so far */ 

int total_passes ; /* total number of passes expected */ 

}; 



/* Data destination object for compression */ 

/* ### Imtiaz: The linked list structure to store the buffer data. */ 
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typedef struct linked_list 
{ 

JOCTET *buffer; 
struct linked_list *next; 
} buffer„list; 



struct jpeg_destination_ragr { 

JOCTET * next_output_byte; /* => next byte to write in buffer */ 
si2e_t f ree_in_buf f er; /* # of byte spaces remaining in buffer */ 

JOCTET *outbuffer; 

buffer_list *head_ptr; 
buffer_list *current_ptr ; 



JMETHOD(void, ini t_destination, ( j_compress_ptr cinf o) ) ; 
JMETHOD (boolean, en^ty_output_buf f er , ( j_conipress_ptr cinfo)); 
JMETHOD(void, tentudestination, (j_compress_j)tr cinfo)); 

}; 



/* Data source object for decompression */ 

struct jpeg_source_mgr { 

const JOCTET * next_input_byte; /* => next byte to read from buffer */ 
size_t bytes_in„buf f er; /* # of bytes remaining in buffer */ 

rE^SAMPLE *inbuffer; /* ### Imtiaz: I added this */ 

^AMPLE *head_inbuffer; /* " */ 

^it buf f erJength^- 
^ii&lETHODivoid, init^source, ( j_decompress_ptr cinfo)); 
SlMETHOD (boolean, f ill_input_buf f er , ( j_decompress_ptr cinfo)); 
4METH0D(void, skip_input_data , ( j_decompress_ptr cinfo, long num_bytes) ) ; 
'^JMETHOD (boolean, resync_to_restart, ( j_decompress_ptr cinfo, int desired)); 
^i5METH0D(void, term_source, ( j_de compress,^ tr cinfo)); 

/ti.Memory manager object. 
^:-Allocates "small" objects (a few K total), "large" objects (tens of K) , 
^Jand "really big" objects (virtual arrays with backing store if needed) . 
f^jThe memory manager does not allow individual objects to be freed; rather, 
L*'=each created object is assigned to a pool, and whole pools can be freed 
fjat once. This is faster and more convenient than remembering exactly what 
gj to free, especially where malloc ( ) /f ree ( ) are not too speedy. 
fiUB: alloc routines never return NULL. They exit to error_exit if not 
'^^ successful . 
*/ 

#define JP00L_PERMANENT 0 /* lasts until master record is destroyed */ 
#define JP00L_IMAGE 1 /* lasts until done with image/ da tastream */ 
#define JP00L_NUMP00LS 2 

typedef struct jvirt_sarray_control * jvirt_sarray_ptr; 
typedef struct jvirt_barray_control * jvirt_barray_ptr; 



struct jpeg_memory_mgr { 
/* Method pointers */ 
JMETHOD(void *, alloc_small, ( j_common_ptr cinfo, int pool_id, 

size_t sizeof object) ) ; 
JMETHOD(void *, alloc_large, ( j_common_j)tr cinfo, int pool_id, 

size_t sizeof object) ) ; 
JMETHOD (JS AMP ARRAY, alloc^sarray , ( j_common_ptr cinfo, int pool_id, 
JDIMENSION saityplesperrow, 
JDIMENSION nvimrows) ) ; 
JMETHOD (JBLOCKARRAY, alloc_barray , (j_common^tr cinfo, int pool.id, 
JDIMENSION blocksperrow, 
JDIMENSION numrows ) ) ; 
JMETHOD( jvirt_sarray_ptr , request_virt_„sarray , ( j_common_ptr cinfo, 

int pool_id, 
boolean pre_zero, 
JDIMENSION samplesperrow, 
JDIMENSION numrows. 
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JDI^^^^ON maxaccess) ) ; 

JMETHOD( jvirt_jDarray_ptr, r^^fct„virt_barray, ( j_coinmon_ptr cin 

boolean pre_zero, 
JDIMENSION blocksperrow, 
JDIMENSION numrows, 
JDIMENSION iricixaccess) ) ; 
iIMETHOD(void, reali2e_virt_arrays, ( j_common_ptr cinfo) ) ; 
JMETHOD( JSAMPARRAY, access_virt_sarray , ( j_coinmon_ptr cinfo, 

jvirt_sarray_ptr ptr, 
JDIMENSION start_row, 
JDIMENSION n\iin_rows, 
boolean writable) ) ; 
JMETHOD( JBLOCKARRAY, access_virt_barray , ( j_coinmon_ptr cinfo, 

jvirt_barray_ptr ptr, 
JDIMENSION start_row, 
JDIMENSION num_rows, 
boolean writable) ) ; 
JMETHOD{void, free_pool, ( j_coiranon_ptr cinfo, int pool_id) ) ; 
JMETHOD(void, sal f_des true t , ( j_coiranon_ptr cinfo)); 

/* Limit on memory allocation for this JPEG object. (Note that this is 

* merely advisory, not a guaranteed maximum; it only affects the space 

* used for virtual-array buffers.) May be changed by outer application 

* after creating the JPEG object. 
*/ 

long max_jnemory_to_use; 

/* Maximum allocation request accepted by alloc^large. */ 
long max_alloc_chunk; 

); 



/*ifeoutine signature for application-supplied marker processing methods, 
ti^eed not pass marker code since it is stored in cinf o->unread_marker . 

tj^def JMETHOD (boolean, jpeg_marker_parser_method, ( j_decompress_ptr cinfo)); 

/*^f Declarations for routines called by application, 
fiThe JPP macro hides prototype parameters from compilers that can't cope. 
*5sNote JPP requires doiible parentheses. 

s 

#ifdef HAVE.PROTOTYPES 

#define JPP(arglist) arglist 

#'eise 

#9efine JPP (arglist) () 
#Kndif 



/j*^ Short forms of external names for systems with brain-damaged linkers. 
^-We shorten external names to be unique in the first six letters, which 

* is good enough for all known systems. 

* (If your compiler itself needs names to be unique in less than 15 

* characters, you are out of luck. Get a better compiler.) 
*/ 




#ifdef NEED„SHORT_EXTERNAL_NAMES 
#define jpeg_std_error jStdError 
#define jpeg_CreateCompress jCreaCompress 
#define jpeg_CreateDec empress jCreaDecompress 
#define jpeg_destroy_compress jDestCompress 
#define jpeg_destroy_dec empress jDestDecompress 
#define jpeg_stdio_dest jStdDest 
#define jpeg_buf f er_dest jBufDest 
#define stitch_list S„List 
idefine jpeg_stdio„src jStdSrc 
#define jpeg_set_def aults jSetDefaults 
#define jpeg_set_colorspace jSetColorspace 
#define jpeg_default_co lor space jDef Colorspace 
#define jpeg_set_quality jSetQuality 
# define jpeg_set_linear_quality jSetLQuality 
# define jpeg_add_quant_ table jAddQuantTable 
tdefine jpeg_quality_scaling j Quality Scaling 
tdefine jpeg_simple_progression jSimProgress 
#define jpeg_suppress_tables jSuppressTables 
#define jpeg_alloc_quant_table jAlcQTable 
#define jpeg_alloc_huff stable jAlcHTable 
# define jpeg_start_compress jStrtC empress 
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idefine jpeg_write_scanlines ^^^rtScanlines 
idefine jpeg_f inish^compress ^^■^'inCompress 
# define jpeg_write_raw_data j^^BRawData 

idefine jpeg_write_jaarker jWrtMarker 

#define jpeg_write_m_header jWrtMHeader 

idefine jpeg_write_nubyte jWrtMByte 

idefine jpeg_wr it eatables jWrtTables 

idefine jpeg_read_header jReadHeader 

idefine jpeg_start_decompress jStrtDec empress 

idefine jpeg_read_scanlines jReadScanlines 

idefine jpeg_f inish_deconipress jFinDecompress 

idefine jpeg_read„raw_data jReadRawData 

idefine jpeg_has_multiple_scans jHasMultScn 

idefine jpeg_start_output jStrtOutput 

idefine jpeg_f inish_output jFinOutput 

idefine jpeg_input_complete j Incomplete 

idefine jpeg_new_colormap jNewCMap 

idefine jpeg_consume_input j Consume Input 

idefine jpeg_calc__output_dimensions jCalcDimensions 

idefine jpeg_save_markers jSaveMarkers 

idefine jpeg_set_marker_processor jSetMarker 

idefine jpeg_read_coef f icients jReadCoefs 

idefine jpeg_write_coef f icients jWrtCoefs 

idefine jpeg_copy_critical__parameters jCopyCrit 

idefine jpeg_abort_compress jAbrtCompress 

idefine jpeg_abort_decompress jAbrtDecompress 

idefine jpeg_abort jAbort 

idefine jpeg_destroy jDestroy 

idefine jpeg_resync„to_restart jResyncRestart 

iendif /* NEED_SHORT„EXTERNAL_NAMES */ 



: - 

/*^i)efault error-management setup */ 
E}a?ERN( struct jpeg_error_mgr *) jpeg_std_error 
gi JPP{ (struct jpeg_error_mgr * err) ) ; 

/*^^Initialization of JPEG compression objects. 
*=.Jjpeg_create_compress ( ) and jpeg_create_decompress ( ) are the exported 
tr^names that applications should call. These expand to calls on 

jpeg_CreateCompress and jpeg_CreateDecompress with additional information 
^Jpassed for version mismatch checking. 

^5NB: you must set up the error-manager BEFORE calling jpeg_create_xxx . 
*7 

idefine jpeg_create_compress (cinf o) \ 

Li jpeg_CreateCompress { (cinfo) , JPEG_LIB_VERSION, \ 

'^z. (size_t) sizeof (struct jpeg_compress„struct) ) 

igefine jpeg_create_decoirpress (cinf o) \ 

jpeg_CreateDecompress( (cinfo) , JPEG_LIB_VERSION, \ 

(size_t) sizeof (struct jpeg_decompress_struct) ) 
ExjERN(void) jpeg_CreateCompress JPP ( ( j_compress_ptr cinfo, 

CJ int version, size_t structsize) ) ; 

EOTERN(void) jpeg_CreateDecompress JPP ( ( j_decompress_ptr cinfo, 

~" int version, size_t structsize) ) ; 

/* Destruction of JPEG compression objects */ 

EXTERN{void) jpeg_destroy_compress JPP ( { j_compress_ptr cinfo)); 
EXTERN(void) jpeg„destroy_decompress JPP ( { j_decoit55ress_ptr cinfo)); 

/* Standard data source and destination managers: stdio streams. */ 

/* Caller is responsible for opening the file before and closing after. */ 



EXTERN(void) jpeg_stdio„dest JPP ( ( j„compress_ptr cinfo, FILE * outf ile) ) ; 

EXTERN(void) jpeg_buf f er_dest JPP ( ( j_compress_ptr cinfo)); 
EXTERN(void) stitch_list JPP ( ( j_compress_ptr cinfo)); 



EXTERN(void) jpeg_stdio_src JPP ( ( j_decompress_ptr cinfo, FILE * inf ile) ) ; 
EXTERN(void) jpeg_buf f er_src JPP ( ( j_decompress_ptr cinfo)); 

/* Default parameter setup for compression */ 

EXTERN(void) jpeg_set_defaults JPP ( ( j_compress_ptr cinfo)); 

/* Corr^ression parameter setup aids */ 

EXTERN(void) jpeg„set_colorspace JPP ( ( j_compress_ptr cinfo, 

J_COLOR_SPACE colorspace) ) ; 
EXTERN(void) jpeg_def ault_colorspace JPP ( ( j_compress_ptr cinfo)); 
EXTERN(void) jpeg_set_quality JPP( ( j_compress_ptr cinfo, int quality, 

boolean f orce„baseline) ) ; 
EXTERN(void) jpeg_set_linear_quality JPP ( ( j_compress_ptr cinfo, 

int scale_f actor. 
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boolean ^M|ce_baseline) ) ; 
EXTERN{void) jpeg_add_quant_t^^B JPP { ( j_coitpress jtr cinfo, int w^^B_tbl, 

const uIBPgned int *basic_table, ^^^^ 

int scale_factor, 

boolean f orce_baseline) ) ; 
EXTERN(int) jpeg_quality_scaling JPP({int quality)); 
EXTERN(void) jpeg_sirrple_progression JPP( ( j_compress_ptr cinfo) ) ; 
EXTERN(void) jpeg_suppress_tables JPP ( ( j„con^ress_ptr cinfo, 

boolean suppress) ) ; 
EXTERN (JQUANT_TBL *) j peg_a lloc_qu an t_ table JPP ( ( j_coinmon_ptr cinfo)); 
EXTERN (JHUFF_TBL *) jpeg_alloc_huf f_table JPP ( ( j_coinmon_ptr cinfo)); 

/* Main entry points for coitpression */ 

EXTERN(void) jpeg_start_compress JPP ( ( j_compress_ptr cinfo, 

boolean write_all_tables) ) ; 
EXTERN( JDIMENSION) jpeg_write_scanlines JPP ( ( j_compress_ptr cinfo, 

JSAMPARRAY scanlines, 

JDIMENSION nuin_lines) ) ; 
EXTERN(void) jpeg_finish_c empress JPP ( ( j_compress_ptr cinfo)); 

/* Replaces jpeg_write_scanlines when writing raw downs ampled data. */ 
EXTERN (JDIMENSION) jpeg_write_raw„data JPP ( ( j_cortpress_ptr cinfo, 

JSAMPIMAGE data, 

JDIMENSION nuin_lines) ) ; 

/* Write a special marker. See libjpeg.doc concerning safe usage. */ 
EXTERN (void) jpeg_write_marker 

JPP( ( j_compress_ptr cinfo, int marker, 

const JOCTET * dataptr, unsigned int datalen) ) ; 
/* Same, but piecemeal. */ 
EXTERN ( vo i d ) j p eg_wr i t e_ituheader 

r% JPP( ( j_compress_ptr cinfo, int marker, vinsigned int datalen)); 
EXTERN (void) jpeg_write_m^byte 
^5 JPP( ( j_compress_^tr cinfo, int val) ) ; 

/^Alternate con^ression function: just write an abbreviated table file */ 
E^^ERN(void) jpeg_write_tables JPP ( ( j_compress_j)tr cinfo)); 

/*! ^Decompress ion startup: read start of JPEG datastream to see what's there * 
E^ERN(int) jpeg_read_header JPP ( ( j_decompress_ptr cinfo, 

boolean require_image) ) ; 
/???Return value is one of: */ 

#define JPEG_SUSPENDED 0 /* Suspended due to lack of input data */ 

# define JPEG„HEADER_OK 1 /* Found valid image datastream */ 

tdefine JPEG_HEADER_TABLES_ONLY 2 /* Found valid table-specs-only datastream 
/k=,If you pass require_image = TRUE (normal case) , you need not check for 
^=?a TABLES_ONLY return code; an abbreviated file will cause an error exit, 
fij JPEG_SUSPENDED is only possible if you use a data source module that can 
L*"i:give a suspension return (the stdio source module doesn't). 

if 

/^iMain entry points for decort^ression */ 

ESri'ERN (boolean) jpeg_start_decompress JPP( (j_decompress_ptr cinfo)); 
EXTERN (JDIMENSION) jpeg_read_scanlines JPP ( ( j_decompress_ptr cinfo, 

JSAMPARRAY scanlines, 

JDIMENSION max_lines) ) ; 
EXTERN (boolean) jpeg_finish_dec empress JPP ( ( j_decompress_ptr cinfo)); 

/* Replaces jpeg_read_scanlines when reading raw downsampled data. */ 
EXTERN (JDIMENSION) jpeg_read_raw_data JPP ( ( j_decompress_ptr cinfo, 

JSAMPIMAGE data, 

JDIMENSION max_lines) ) ; 

/* Additional entry points for buffered- image mode. */ 

EXTERN (boolean) jpeg_hasjnultiple_scans JPP ( ( j_decompress_ptr cinfo)); 

EXTERN (boolean) jpeg_start_output JPP ( (j_decompress_ptr cinfo, 

int scan_number) ) ; 
EXTERN (boolean) jpeg_f inish_output JPP ( ( j_decompress jtr cinfo)); 
EXTERN (boolean) jpeg_input_complete JPP ( ( j_decompress_ptr cinfo)); 
EXTERN(void) jpeg_new„colormap JPP ( ( j_decompress_ptr cinfo)); 
EXTERN(int) jpeg_cons\ime_input JPP ( ( j_decompress jtr cinfo)); 
/* Return value is one of: */ 

/* #define JPEG_SUSPENDED 0 Suspended due to lack of input data */ 

tdefine JPEG_REACHED„SOS 1 /* Reached start of new scan */ 

#define JPEG_REACHED_EOI 2 /* Reached end of image */ 

idefine JPEG_ROW_COMPLETED 3 /* Completed one iMCU row */ 

#define JPEG_SCAN_COMPLETED 4 /* Completed last iMCU row of a scan */ 

/* Precalculate output dimensions for current decompression parameters. */ 
EXTERN(void) jpeg_calc_output_dimensions JPP ( ( j„decoiiqpress_ptr cinfo)); 
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/* Control saving of COM and markers into marker_list . */ 

EXTERN (void) jpeg_save_marker^^^ _ 
JPP ( ( j_decorr5>ress_ptr cinfo, int marker_code, 
unsigned int length_limit) ) ; 

/* Install a special processing method for COM or APPn markers. */ 
EXTERN (void) jpeg_set_marker_processor 

JPP ( ( j_decoir?)ress_ptr cinfo, int marker_code, 
jpeg_marker_parser_method routine) ) ; 

/* Read or write raw DCT coefficients useful for lossless transcoding. */ 

EXTERNC jvirt_barray^tr *) jpeg_read_coef f icients JPP ( ( j_decompress_ptr cinfo) ) 
EXTERN(void) jpeg_write_coeff icients JPP ( ( j_compress_ptr cinfo, 

jvirt_barray_ptr * coef_arrays) ) ; 
EXTERN(void) jpeg_copy_critical_parameters JPP ( ( j_decompress_ptr srcinfo, 

j_coii^ress^tr dstinfo) ) ; 

/* If you choose to abort compression or decompression before completing 

* jpeg_finish_(de) compress, then you need to clean up to release memory, 

* temporary files, etc. You can just call jpeg_destroy„(de) compress 

* if you're done with the JPEG object, but if you want to clean it up and 

* reuse it, call this: 
*/ 

EXTERN(void) jpeg_abort_compress JPP( ( j_compress_ptr cinfo)); 
EXTERN(void) jpeg_abort_dec empress JPP ( ( j_decompress_ptr cinfo)); 

/* Generic versions of jpeg_abort and jpeg_destroy that work on either 

* flavor of JPEG object. These may be more convenient in some places. 
*/ 

EXTERN(void) jpeg_abort JPP ( ( j_common_ptr cinfo)); 
E3B5ERN(void) jpeg_destroy JPP ( ( j_common_ptr cinfo)); 

/^=befault restart-marker-resync procedure for use by data source modules */ 
ElSiERN (boolean) jpeg_resync_to_restart JPP { ( j_decompress_ptr cinfo, 

int desired) ) ; 

/?f=|These marker codes are exported since applications and data source modules 
*::are likely to want to use them. 

#define JPEG_RSTO OxDO /* RSTO marker code */ 

#aefine JPEG_EOI 0xD9 /* EOI marker code */ 

#aefine JPEG_APPO OxEO /* APPO marker code */ 

#define JPEG_COM OxFE /* COM marker code */ 



/%}lf we have a brain-damaged compiler that emits warnings (or worse, errors) 
f or structure definitions that are never filled in, keep it quiet by 
supplying dummy definitions for the various substructures. 

#ifdef INCOMPLETE_TYPES_BROKEN 

#ifndef JPEG_INTERNALS /* will be defined in jpegint.h */ 

struct jvirt„sarray_control { long dummy; } ; 

struct jvirt„barray_control { long dummy; }; 

s t r uc t j p eg_c pmp_mas t e r { 1 ong dummy ; } ; 

struct jpeg__c_main_contr oiler { long dummy; } ; 

struct jpeg_c_prep_controller ( long dummy; }; 

struct jpeg_c_coef_controller { long dummy; }; 

struct jpeg__marker_writer { long dummy; } ; 

struct jpeg_color_converter { long dummy; } ; 

struct jpeg_downs ampler { long dummy; } ; 

struct jpeg_forward_dct { long dummy; ); 

struct jpeg_entropy_encoder { long dummy; }; 

s t rue t j p eg_de c omp_mas t er { 1 ong dximmy ; ) ; 

struct jpeg_d„main_controller { long dummy; ) ; 

struct j peg_d_coef_c on t roller { long dummy; ) ; 

struct jpeg_d_post„cont roller { long dummy; }; 

struct jpeg_input_controller { long dummy; }; 

struct jpeg_marker„reader { long dummy; } ; 

struct jpeg_entropy_decoder { long dummy; } ; 

struct jpeg_inverse_dct { long dummy; ) ; 

struct jpeg_up sampler { long dummy; } ; 

struct jpeg_color_deconverter { long dummy; }; 

struct jpeg_color_quantizer { long dummy; }; 

#endif /* JPEG_INTERNALS */ 

#endif /* INCOMPLETE_TYPES_BROKEN */ 
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ielWe JPEG_INTERNALS before including ^K^s 



/* 

* The JPEG library modules d^lWTe JPEG_INTERNALS before including ^i^s file. 

* The internal structure declarations are read only when that is true. 

* Applications using the library should not include jpegint.h, but may wish 

* to include j error. h. 
*/ 

tifdef JPEG_INTERNALS 

iinclude "jpegint.h" /* fetch private declarations */ 

tinclude "jerror.h" /* fetch error codes too */ 

#endif 

#endif /* JPEGLIB_H */ 
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/* 

* j version. h 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accoit^anying README file. 
* 

* This file contains software version identification. 
*/ 




idefine JVERSION "6b 27-Mar-1998" 



idefine JCOPYRIGHT "Copyright (C) 1998, Thomas G. Lane" 



1 1 1 1 1 1 1 1 1 11 1 1 1 1 / 1 1 i n 1 1 1 1 1 H I fglfkil 1 1 1 11 i 1 1 u i I n 1 1 1 n 11 1 m It 1 1 11 

// Construction/Destruction 

1 1 1 1 1 1 1 1 1 u i 1 1 n i i i n li n 1 1 ii^Wii i n 11 n m 1 1 u I n n i i li IN 1 1 n I 

RawPixelEncoder : : RawPixelEncoder ( ) 
{ 

nuRe 1 e as e Bu f f e r Memory = f al se ; 
m_pBuf f er =NULL ; 
ituBuf ferPtr=0; 

} 

RawPixelEncoder :: ^RawPixel Encoder { ) { ReleaseBuf f er ( ) ; } 



/************************************************************* 
* 

* Prepare buffer for data entry 
* 

******************* ******1t**4r***********1t****«**************4r**1k^*** 

bool RawPixelEncoder :: Sets ize (UINT3 2 size) 
{ 

ReleaseBuf fer ( ) ; 

if(size<=0) return false; 

nuSize=si2e; 

try 

{ 

mjBuffer = new BYTE [in_S ize] ; 

} 

catch ( . . . ) { return false; } 

if (itupBuf f er) 

{ 

memset (itupBuf f er , 0,m_Size) ; 
ri m_ReleaseBuf f erMemory=true ; 
.7^ m_Buf ferPtr=0; 

return true; 

01 ) 

else return false; 

I **************************************************************** 

*^ij 

*-JJ Add new subbufer 

*=s = 
: ; : 

*V* *************************************************************************/ 

U3:nT32 RawPixelEncoder: :AddData( BYTE* buf, UI^^T32 buf_size, 
U UINT32 fliprawbytes /*=0*/) 

bool flipY = (f liprawbytes>l) ; 
nj if (nuBuf f erPtr>=nuSize) return 0; 

if (buf_size>nuSize-nuBuf f erPtr) // avoid overflow 

y flipY=false; 

-r=2 buf_si2e = m_Size-m_Buf f erPtr ; 

} 

BYTE *start = & (rtL^Buf f er [m_Buf f erPtr] ) ; 

for(UINT32 k=0; k<buf„size; k++} 

{ 

m_pBuf f er [m_Buf ferPtr] = buf[k]; 
m„Buf f erPtr++ ; 

} 

if (flipY) 
{ 

: :Flip2DBufferY( start, buf^size, fliprawbytes); 

) 

start=NULL; 
return buf_size; 

} 

/*************************************************************************** 
* 

* Tremsfer buffer data to VR 
* 

****************************************************************************/ 

void RawPixelEncoder :: Trans ferDataToVR(VR *vr) 
{ 

vr->AttachData (nupBuf fer ,m_Size) ; 
m ^Buf f er =NULL ; 
m_ReleaseBufferMemory= FALSE ; 

} 

/*************************************************************************** 
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Release allocated buffer ilSiry 



void RawPixelEncoder : :ReleaseBuf f er ( ) 
{ 

if (ituReleaseBuf f erMemory) 
{ 

if (nupBuf fer) 
{ 

delete (] itL_pBuffer; 
m jBuf f er=NULL ; 

) 

nuRe leaseBuffe rMemory = false; 

) 



a 
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/* 

* jchuff.h 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains declarations for Huffman entropy encoding routines 

* that are shared between the sequential encoder (jchuff .c) and the 

* progressive encoder (jcphuff.c). No other modules need to see these. 
*/ 

/* The legal range of a DCT coefficient is 

* -1024 . . +1023 for 8-bit data; 

* -16384 .. +16383 for 12-bit data. 

* Hence the magnitude should always fit in 10 or 14 bits respectively. 
*/ 

#if BITS_IN_JS AMPLE == 8 
#define MAX_COEF_BITS 10 
^else 

#define MAX_COEF_BITS 14 
#endif 

/* Derived data constructed for each Huffman table */ 

typedef struct { 

unsigned int ehufco[256]; /* code for each symbol */ 

char ehufsi[256]; /* length of code for each symbol */ 

/* If no code has been allocated for a symbol S, ehufsi[S] contains 0 */ 

} c_derived_tbl ; 

/*^3short forms of external names for systems with brain-damaged linkers. */ 

#:^def NEED_SHORT_EXTERNAL_NAMES 
#^fine jpeg_make_c_derived_tbl jMkCDerived 
#&'fine jpeg__gen_optimal_table jGenOptTbl 
#^dif /* NEED_SHORT_EXTERNAL_NAMES */ 

/*^fExpand a Huffman table definition into the derived format */ 
E^ERN (void) jpeg_make„c_derived_tbl 
^'z JPP{ ( j_compress_ptr cinfo, boolean isDC, int tblno, 
c_derived_tbl ** pdtbl)); 

/£l,Generate an optimal table definition given the specified counts */ 
EXTERN (void) jpeg„gen_optimal_table 
l=J JPP( ( j_compress_ptr cinfo, JHUFF_TBL * htbl, long freq[])); 




/* jconfig.vc jconfig.h f^^fc^crosoft Visual C++ on Windows 95 

/* see jconfig.doc for explan^^Bis */ ( 



#define HAVE_PROTOTYPES 
#define HAVE„UNSIGNED_CHAR 
#define HAVE_UNSIGNED_SHORT 
/* #define void char */ 
/* tdefine const */ 
#undef CHAR_IS_UNSIGNED 
#define HAVE_STDDEF_H 
idefine HAVE.STDLIB_H 
#undef NEED_BSD_STRINGS 
#undef NEED_SYS_TYPES_H 

#undef NEED_FAR_PO INTERS /* we presume a 32-bit flat memory model */ 
#undef NEED_SHORT_EXTERNAL_NAMES 
#undef INCOMPLETE_TYPES_BROKEN 

/* Define "boolean" as unsigned char, not int, per Windows custom */ 

#ifndef RPCNDR_H_ /* don't conflict if rpcndr.h already read * 

typedef vinsigned char boolean; 
#endif 

#define HAVE_BOOLEAN /* prevent jmorecfg.h from redefining it */ 



#ifdef JPEG_INTERNALS 

#undef RIGHT_SHIFT_IS_UNSIGNED 

#endif /* JPEG^INTERNALS */ 

#ifdef JPEG_CJPEG_DJPEG 

#define BMP_SUPPORTED 
#dgfine GIF_SUPPORTED 
#Gfefine PPM_SUPPORTED 
#\mdef RLE_SUPPORTED 
tdfejfine TARGA_SUPPORTED 

#d^fine TWO_FILE_COMMANDLINE /* optional */ 
#(3yfine USE_SETMODE /* Microsoft has setmodeO */ 

#^def NEED_SIGNAL_CATCHER 
#Widef DONT_USE_B_MODE 

#tMdef PROGRESS_REPORT /* optional */ 



/* BMP image file format */ 

/* GIF image file format */ 

/* PBMPLUS PPM/ PGM image file format */ 

/* Utah RLE image file format */ 

/* Targa image file format */ 



#pndif /* JPEG_CJPEG_DJPEG */ 



/* 

* jdct.h 
* 

* Copyright (C) 1994-1996, Thomas G. Lane, 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This include file contains common declarations for the forward and 

* inverse DCT modules. These declarations are private to the DCT managers 

* (jcdctmgr.c, jddctmgr.c) and the individual DCT algorithms. 

* The individual DCT algorithms are kept in sepsirate files to ease 

* machine -dependent tuning (e.g., assembly coding). 
*/ 



/* 

* A forward DCT routine is given a pointer to a work area of type DCTELEM[]; 

* the DCT is to be performed in-place in that buffer. Type DCTELEM is int 

* for 8-bit san^jles, INT32 for 12-bit samples. (NOTE: Floating-point DCT 

* implementations use an array of type FAST_FLOAT, instead.) 

* The DCT inputs are expected to be signed (range +-CENTERJSAMPLE) . 

* The DCT outputs are returned scaled up by a factor of 8; they therefore 

* have a range of +-8K for 8-bit data, +-128K for 12-bit data. This 

* convention improves accuracy in integer implementations and saves some 

* work in floating-point ones. 

* Quantization of the output coefficients is done by jcdctmgr.c. 
*/ 

#if BITS_IN_JSAMPLE == 8 

typedef int DCTELEM; /* 16 or 32 bits is fine */ 

#else 

t^p^def INT32 DCTELEM; /* must have 32 bits */ 

#^kif 

t^edef JMETHOD(void, f orward_DCT_methodjtr , (DCTELEM * data)); 
tyi3edef JMETHOD (void, f loat_DCT_method_ptr , (FAST_FLOAT * data)); 

^^An inverse DCT routine is given a pointer to the input JBLOCK and a pointer 
fljto an output sample array. The routine must dequantize the input data as 
C^well as perform the IDCT; for dequantization, it uses the multiplier table 
♦^-"pointed to by compptr->dct_table. The output data is to be placed into the 

* sample array starting at a specified coliaran. (Any row offset needed will 
£^be applied to the array pointer before it is passed to the IDCT code.) 
*^Note that the number of samples emitted by the IDCT routine is 
yDCT_scaled_size * DCT„scaled_size . 

/*i typedef inverse_DCT_method_ptr is declared in jpegint.h */ 

M 

yst^Each IDCT routine has its own ideas about the best dct_table element type. 
*/ 

typedef MULTIPLIER ISLOW_MULT__TYPE; /* short or int, whichever is faster */ 
#if BITS_IN_JSAMPLE == 8 

typedef MULTIPLIER IFAST_MULT_TYPE; /* 16 bits is OK, use short if faster */ 

#define IFAST_SCALE_BITS 2 /* fractional bits in scale factors */ 

#else 

typedef INT32 IFAST_MULT_TYPE; /* need 32 bits for scaled quantizers */ 
#define IFAST_SCALE_BITS 13 /* fractional bits in scale factors */ 
#endif 

typedef FAST_FLOAT FLOAT_MULT_TYPE; /* preferred floating type */ 



/* 

* Each IDCT routine is responsible for range- limiting its results and 

* converting them to unsigned form ( 0 . . MAX JSAMPLE ) . The raw outputs could 

* be quite far out of range if the input data is corrupt, so a bulletproof 

* range -limiting step is required. We use a mask-and- table- lookup method 

* to do the combined operations quickly. See the comments with 

* prepare_range_limit_table (in jdmaster.c) for more info. 
*/ 

tdefine IDCT_rcLnge_limit (cinf o) ( (cinf o) ->sample_range_limit + CENTERJSAMPLE) 
idefine RANGE_MASK (MAXJSAMPLE * 4 + 3) /* 2 bits wider than legal samples */ 




1 



/* Short forms of external a 

iifdef NEED_SHORT_EXTERNAL_Ni 
#define jpeg_fdct_islow jFDislow 
idefine jpeg_fdct_if ast jFDifast 
#define jpeg_fdct_f loat jFDfloat 
#define jpeg_idct_islow jRDislow 
idefine jpeg_idct_if ast jRDifast 
idefine jpeg_idct_f loat jRDfloat 
idefine jpeg_idct_4x4 jRD4x4 
idefine jpeg_idct_2x2 jRD2x2 
idefine jpeg_idct_lxl jRDlxl 
iendif /* NEED_SH0RT_EXTERNAL_J4AMES */ 



for systems with brain-damaged lii 



/* Extern declarations for the forward and inverse DCT routines. */ 



EXTERN(void) jpeg_f dct_islow JPP((DCTELEM * data) ) ; 
EXTERN(void) jpeg_f dct_if ast JPP((DCTELEM * data) ) ; 
EXTERN(void) jpeg_f dct_f loat JPP ( ( FAST_FLOAT * data) ) ; 

EXTERN (void) jpeg„idct_islow 

JPP ( ( j_decompress_ptr cinfo, jpeg_component_inf o * corrpptr, 
JCOEFPTR coef„block, JSAMPARRAY output_buf, JDIMENSION output_col ) ) ; 
EXTERN (void) jpeg_idct_if ast 

JPP ( ( j_decompress_ptr cinfo, jpeg_component_inf o * coit^ptr, 
JCOEFPTR coef_block, JSAMPARRAY output_buf, JDIMENSION output.col ) ) ; 
EXTERN (void) jpeg_idct_float 

JPP( ( j— deconpress_ptr cinfo, jpeg_component_inf o * coit^ptr, 
JCOEFPTR coef_block, JSAMPARRAY output_buf, JDIMENSION output_col ) ) ; 
EXTERN (void) jpeg_idct_4x4 

JPP( ( j_decoitpress_ptr cinfo, jpeg_component_inf o * coinpptr, 
ri JCOEFPTR coef_block, JSAMPARRAY output_buf, JDIMENSION output_col ) ) ; 
EXTERN (void) jpeg_idct_2x2 
-4J JPP ( (j_de centre ss_ptr cinfo, jpeg_component_inf o * coitpptr, 
Ql JCOEFPTR coef_block, JSAMPARRAY output_buf, JDIMENSION output_col ) ) ; 
EX^RN(void) jpeg_idct_lxl 

JPP ( ( j_decoirpress_ptr cinfo, jpeg_component_inf o * cortpptr, 
Sj JCOEFPTR coef_block, JSAMPARRAY output_buf, JDIMENSION output_col ) ) ; 

/iJ 

f^|Macros for handling fixed-point arithmetic; these are used by many 

*'~but not all of the DCT/IDCT modules. 

» 

p:i=All values are expected to be of type INT32. 

k:^ Fractional constants are scaled left by CONST_BITS bits. 

CONST_BITS is defined within each module using these macros, 
j^Jand may differ from one module to the next. 

^? 

figefine ONE ((INT32) 1) 

t^fine CONST_SCALE (ONE « CONST^BITS) 

/* Convert a positive real constant to an integer scaled by CONST_SCALE. 

* Caution: some C compilers fail to reduce "FIX (constant) " at compile time, 

* thus causing a lot of useless floating-point operations at run time. 
*/ 

idefine FIX(x) ((INT32) ( (x) * CONST_SCALE + 0.5)) 

/* Descale and correctly round an INT32 value that's scaled by N bits. 

* We assume RIGHT_SHIFT rounds towards minus infinity, so adding 

* the fudge factor is correct for either sign of X. 
*/ 

idefine DESCALE(x,n) RIGHT_SHIFT( (x) + (ONE « ((n)-l)), n) 



/* Multiply an INT32 variable by an INT32 constant to yield an INT32 result. 

* This macro is used only when the two inputs will actually be no more than 

* 16 bits wide, so that a 16xl6->32 bit multiply can be used instead of a 

* full 32x32 multiply. This provides a useful speedup on many machines. 

* Unfortunately there is no way to specify a 16xl6->32 multiply portably 

* in C, but some C compilers will do the right thing if you provide the 

* correct combination of casts. 
*/ 

iifdef SHORTxSHORT„32 /* may work if 'int' is 32 bits */ 

idefine MULTIPLY16C16(var, const) (((INT16) (var) ) * ( (INT16) (const))) 

iendif 

iifdef SHORTxLCONST_32 /* Icnown to work with Microsoft C 6.0 */ 
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#define MULTIPLyi6C16(var,con^^ ( ( (INT16) (var) ) * ((INT32) (coni 
#endif 



i^^(((INT16) (var)) * ((INT32) (con||^) 



#ifndef MULTIPLY16C16 /* default definition */ 

#define MULTIPLY16C16 (var, const) ((var) * (const)) 
tendif 

/* Same except both inputs are variables. */ 

#ifdef SHORTxSHORT_32 /* may work if 'int' is 32 bits */ 

#define MULTIPLyi6V16(varl,var2) (((INT16) (varl)) * ( (INT16) (var2))) 

#endif 

iifndef MULTIPLY16V16 /* default definition */ 

tdefine MULTIPLyi6V16(varl,var2) ((varl) * (var2)) 
tendif 
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/* 

* jdhuff.h 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains declarations for Huffman entropy decoding routines 

* that are shared between the sequential decoder (jdhuff .c) and the 

* progressive decoder (jdphuff.c). No other modules need to see these. 
*/ 

/* Short forms of external names for systems with brain-damaged linkers. */ 

#ifdef NEED_SHORT_EXTERNAL_NAMES 
tdefine jpeg_make_d_derived_tbl jMkDDerived 
idefine jpeg_f ill_bit_buf f er jFilBitBuf 
#define jpeg_huf f_decode jHuf Decode 
iendif /* NEED_SHORT_EXTERNAL_NAMES */ 



/* Derived data constructed for each Huffman table */ 

#define HUFF_LOOKAHEAD 8 /* # of bits of lookahead */ 

typedef struct { 

/* Basic tables: (element [0] of each array is unused) */ 
INT32 maxcode[18]; /* largest code of length k (-1 if none) */ 

/* (maxcode[17] is a sentinel to ensure jpeg_huf f_decode terminates) */ 
INT32 valof fset [17] ; /* huffval[3 offset for codes of length k */ 

/* valof f set [k] = huffval[] index of 1st symbol of code length k, less 
ri* the smallest code of length k; so given a code of length k, the 
corresponding symbol is huffval[code + valof fset [k] ] 

01 

.d* Link to public Huffman table (needed only in jpeg_huf f_decode) */ 
^^^JHUFF_TBL *pub; 

ji* Lookahead tables: indexed by the next HUFF_LOOKAHEAD bits of 
'"^.t* the input data stream. If the next Huffman code is no more 
^* than HUFF_LO0KAHEAD bits long, we can obtain its length and 
qi* the corresponding symbol directly from these tables. 

= int look_nbits[l«HUFF_LOOKAHEAD] ; /* # bits, or 0 if too long */ 
[==UINT8 look_sym[l«HUFF_LOOKAHEAD] ; /* symbol, or unused */ 
)l=:d_derived_tbl ; 

LI 

/f?j Expand a Huffman table definition into the derived format */ 
EXTERN (void) jpeg_make_d_derived_tbl 

^: JPP( ( j_decompress_ptr cinfo, boolean isDC, int tblno, 
y d„derived_tbl ** pdtbl)); 

/* 

* Fetching the next N bits from the input stream is a time-critical operation 

* for the Huffman decoders. We implement it with a combination of inline 

* macros and out-of-line subroutines. Note that N (the number of bits 

* demanded at one time) never exceeds 15 for JPEG use. 
* 

* We read source bytes into get_buffer and dole out bits as needed. 

* If get_buffer already contains enough bits, they are fetched in-line 

* by the macros CHECK_BIT_BUFFER and GET_BITS. When there aren't enough 

* bits, jpeg_f ill_bit_buf fer is called; it will attempt to fill get_buffer 

* as full as possible (not just to the number of bits needed; this 

* prefetching reduces the overhead cost of calling jpeg_f ill_bit„buf f er ) . 

* Note that jpeg_f ill„bit_buf f er may return FALSE to indicate suspension. 

* On TRUE return, jpeg_f ill_bit_buf f er guarantees that get.buffer contains 

* at least the requested number of bits dummy zeroes are inserted if 

* necessary. 
*/ 

typedef INT32 bit_buf_type ; /* type of bit-extraction buffer */ 
#define BIT_BUF_SIZE 32 /* size of buffer in bits */ 

/* If long is > 32 bits on your machine, and shifting/masking longs is 

* reasonably fast, making bit_buf_type be long and setting BIT_BUF_SIZE 

* appropriately should be a win. Unfortunately we can't define the size 

* with something like #define BIT_BUF_SIZE (sizeof (bit_buf_type) *8) 

* because not all machines measure sizeof in 8-bit bytes. 
*/ 
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typedef struct { /* Bi^^Biing state saved across MCUs */ 

bit_buf_type get_buffer; /^Krrent bit-extraction buffer */ 
int bits_left; /* # of unused bits in it */ 

) bitread_pent\_state; 

typedef struct { /* Bi treading working state within an MCU */ 

/* Current data source location */ 

/* We need a copy, rather than m\inging the original, in case of suspension */ 
const JOCTET * next_input_byte; /* => next byte to read from source */ 
size_t bytes_in_buf f er; /* # of bytes remaining in source buffer */ 
/* Bit input buffer note these values are kept in register variables, 

* not in this struct, inside the inner loops. 

*/ 

bit_buf_type get_buffer; /* current bit -extract ion buffer */ 
int bits_left; /* # of unused bits in it */ 

/* Pointer needed by jpeg_f ill_bit_buf f er . */ 

j_decompress_ptr cinfo; /* back link to decompress master record */ 
} bi tread_working_s tate ; 

/* Macros to declare and load/ save bi tread local variables. */ 
idefine BITREAD_STATE_VARS \ 

register bit_buf_type get_buffer; \ 

register int bits_left; \ 

bitread_working_state br_state 

# define BITREAD_LOAD_STATE(cinf op, perms tate) \ 
br_s tate .cinfo = cinfop; \ 

br_state .next„input_byte = cinf op->src->next_input_byte; \ 
br_state .bytes_in_buf f er = cinf op->src->bytes_in_buf f er ; \ 
get_buffer = permstate.get_buf fer; \ 
rj bits_left = perms ta te. bi t s_l e ft; 

#^fine BITREAD_SAVE_STATE (cinf op, perms tate) \ 
yl cinfop->src->next_input_byte = br_state .next_input_byte; \ 
cinfop->src->bytes_in_buf f er = br_state .bytes_in_buf f er ; \ 
'f\ perms tate.get„buf fer - get_buffer; \ 
"^J perms tat e.bits_left = bits_left 

These macros provide the in-line portion of bit fetching, 
^3 Use CHECK_BIT_BUFFER to ensure there are N bits in get_buffer 
before using GET_BITS, PEEK_BITS, or DROP_BITS. 

* The variables get_buffer and bits_left are assumed to be locals, 
L*ibut the state struct might not be ( jpeg_huf f_decode needs this). 

CHECK_BIT_BUFFER (state , n , action) ; 

Ensure there are N bits in get_buffer; if suspend, take action. 
Rj val = GET_BITS(n); 

■^^s Fetch next N bits. 

val = PEEK_BITS(n) ; 

Fetch next N bits without removing them from the buffer. 
DROP_BITS(n) ; 
^ Discard next N bits. 

* The value N should be a single variable, not an expression, because it 

* is evaluated multiple times. 
*/ 

#define CHECK_BIT_BUFFER(state,nbits, action) \ 
{ if (bits_left < (nbits)) { \ 

if (! jpeg_fill_bit_buf fer (&(state) ,get_buffer, bits_left, nbits) ) \ 
{ action; ) \ 

get_buffer = (state) .get_buffer; bits_left = (state) .bits_left; ) } 

#define GET_BITS (nbits) \ 

(((int) (get_buffer » (bits_left -= (nbits)))) & ( (1« (nbits) ) -1) ) 

#define PEEK_BITS (nbits) \ 

(((int) (get_buffer » (bits.left - (nbits)))) & ( (1« (nbits) ) -1) ) 

#define DROP_BITS (nbits) \ 
(bits.left -= (nbits)) 

/* Load up the bit buffer to a depth of at least nbits */ 
EXTERN ( bool ean ) j peg_f i 1 l_bi t_bu f f er 

JPP ( (bit read_working_s tate * state, register bit_buf_type get_buffer, 
register int bits_left, int nbits)); 



/* 

* Code for extracting next Huffman-coded symbol from input bit stream. 
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Again, this is time-critie 



:^^^id we make the main paths be macr^^^ 
;^^Socess codes of up to HUFF^LOOKAHE^^^i 



* We use a lookahead table t^^focess codes of up to HUFF„L00KAHE/5^^its 

* without looping. Usually, more than 95% of the Huffman codes will be 8 

* or fewer bits long. The few over length codes are handled with a loop, 

* which need not be inline code. 

* Notes about the HUFF_DECODE macro: 

* 1. Near the end of the data segment, we may fail to get enough bits 

* for a lookahead. In that case, we do it the hcird way. 

* 2. If the lookahead table contains no entry, the next code must be 

* more than HUFF_LOOKAHEAD bits long. 

* 3. jpeg„huf f_decode returns -1 if forced to suspend. 
*/ 

#define HUFF_DECODE (result, state, htbl , fai lac t ion, si owl abel) \ 
{ register int nb, look; \ 

if (bits_left < HUFF_LOOKAHEAD) { \ 

if (! jpeg_f ill_bit_buf fer (&state,get„buf fer,bits_lef t, 0)) (f ailaction; } \ 
get_buffer = state .get_buffer; bits_left = state.bits_lef t; \ 
if (bits.left < HUFF.LOOKAHEAD) { \ 

nb = 1; goto slowlabel; \ 
} \ 
} \ 

look = PEEK_BITS(HUFF„LOOKAHEAD) ; \ 
if ((nb = htbl->look_nbits[look] ) != 0) { \ 
DROP_BITS(nb) ; \ 

result = htbl->look_symElook) ; \ 
} else { \ 

nb = HUFF_L00KAHEAD+1; \ 
slowlabel: \ 

fi if ( (result=jpeg_huff_decode(&state,get_buf fer,bits_left,htbl,nb) ) < 0) \ 
ffl { failaction; } \ 

Z' get_buffer = state .get_buffer; bits_left = state .bits_left; \ 

01 \ 

/*JOut-of -line case for Huffman code fetching */ 
EgTERN(int) jpeg_huf f_decode 
zt JPP( {bitread_working_state * state, register bit_buf_type get_buffer, 
register int bits_left, d_derived_tbl * htbl, int min.bits) ) ; 
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/* 

* j error . h 
* 

* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file defines the error and message codes for the JPEG library. 

* Edit this file to add new codes, or to translate the message strings to 

* some other language. 

* A set of error-reporting macros are defined too. Some applications using 

* the JPEG library may wish to include this file to get the error codes 

* and/ or the macros. 
*/ 

/* 

* To define the enum list of message codes, include this file without 

* defining macro JMESSAGE. To create a message string table, include it 

* again with a suitable JMESSAGE definition (see j error. c for an example) . 
*/ 

#ifndef JMESSAGE 
#ifndef JERROR_H 

/* First time through, define the enum list */ 

#define JMAKE_ENUM_LIST 

#else 

/* Repeated inclusions of this file are no-ops unless JMESSAGE is defined */ 
#define JMESSAGE (code, string) 
#endif /* JERROR_H */ 
#endif /* JMESSAGE */ 

#ifdef JMAKE_ENUM_LIST 

ty^edef enxim { 

#gefine JMESSAGE (code, string) code , 
#^dif /* JMAKE_ENUM_LIST */ 

JwisSAGE(JMSG_NOMESSAGE, "Bogus message code %d'') /* Must be first entry! */ 

/^]For maintenance convenience, list is alphabetical by message code name */ 
JMESSAGE ( JERR_ARITH_NOTIMPL , 

"Sorry, there are legal restrictions on arithmetic coding") 
JMESSAGE (JERR_BAD_ALIGN_TYPE, "ALIGN.TYPE is wrong, please fix") 
JMESSAGE (JERR_BAD_ALLOC_CHUNK, " MAX_ALLOC_CHUNK is wrong, please fix") 
JMESSAGE (JERR_BAD_BUFFER_J10DE, "Bogus buffer control mode") 
.^SSAGE(JERR_BAD_COMPONENT_ID, "Invalid component ID %d in SOS") 
Op^ESSAGE (JERR_BAD_DCT_COEF, "DCT coefficient out of range") 
jMfeSSAGE(JERR_BAD_DCTSIZE, "IDCT output block size %d not supported") 
jM:SSAGE(JERR_BAD_HUFF_TABLE, "Bogus Huffman table definition") 
0§E SS AGE (JERR_BAD_IN_COLORS PACE, "Bogus input colorspace") 
Cpfe SS AGE {JERR_BAD_J_COLORS PACE, "Bogus JPEG colorspace") 
it^SSAGE(JERR_BAD„LENGTH, "Bogus marker length") 
JMESSAGE ( JERR_BAD_LIB_VERSION, 

"Wrong JPEG library version: library is %d, caller expects %d") 
JMESSAGE (JERR_BAD_MCU_S I ZE, "Sampling factors too large for interleaved scan") 
JMESSAGE (JERR_BAD_POOL_ID, "Invalid memory pool code %d") 
JMESSAGE (JERR_BAD_PREC I SIGN, "Unsupported JPEG data precision %d" ) 
JMESSAGE ( JERR_BAD_PROGRESSI0N, 

"Invalid progressive parameters Ss=%d Se=%d Ah=%d Al=%d") 
JMES SAGE ( JERR_BAD_PROG_SCRI PT , 

"Invalid progressive parameters at scan script entry %d") 
JMESSAGE (JERR_BAD_SAMPLING, "Bogus sampling factors") 
JMES SAGE (JERR_BAD„SCAN_SCRIPT, "Invalid scan script at entry %d" ) 
JMES SAGE (JERR_BAD_STATE, "Improper call to JPEG library in state %d") 
JMESSAGE ( JERR_BAD_STRUCT_SIZE, 

"JPEG parameter struct mismatch: library thinks size is %u, caller expects %u") 
JMESSAGE (JERR_BAD_VIRTUAL_ACCESS, "Bogus virtual array access") 
JMESSAGE (JERR_BUFFER„SIZE, "Buffer passed to JPEG library is too small") 
JMESSAGE (JERR_CANT_SUSPEND, "Suspension not allowed here") 
JMESSAGE (JERR_CCIR601_NOTIMPL, "CCIR601 sampling not implemented yet") 
JMESSAGE (JERR_COMPONENT_COUNT, "Too many color components: %d, max %d") 
JMESSAGE (JERR_CONVERS I ON_NOTIMPL, "Unsupported color conversion request") 
JMESSAGE (JERR_DAC_INDEX, "Bogus DAC index %d") 
JMESSAGE (JERR_DAC_VALUE, "Bogus DAC value Ox%x") 
JMESSAGE (JERR_DHT_INDEX, "Bogus DHT index %d") 
JMESSAGE (JERR„DQT_INDEX, "Bogus DQT index %d") 

JMESSAGE (JERR_EMPTY_IMAGE, "Enpty JPEG image (DNL not supported)") 
JMESSAGE (JERR_EMS_READ, "Read from EMS failed") 
JMESSAGE (JERR_EMS_WRITE, "Write to EMS failed") 
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JMESSAGE(JERR_EOI_EXPECTED, "1^^' t expect more than one scan") 
JMESSAGE(JERR.FILE.READ, 'Inp^^Kle read error") 

JMESSAGE ( JERR_FILE_WRITE, "Ou5« file write error out of disk^^ce?") 

JMESSAGE(JERR_FRACT_SAMPLE_NOTIMPIj, "Fractional sampling not iit?)lemented yet") 
JMESSAGE(JERR_HUFF_CLEN_OVERFLOW, "Huffman code size table overflow") 
JMESSAGE(JERR_HUFF„MISSING_C0DE, -Missing Huffman code table entry") 
JMESSAGE(JERR_IMAGE_TOO_BIG, "Maximum supported image dimension is %u pixels") 
JMESSAGE(JERR_INPUT_EMPTY, ■En?)ty input file") 
JMESSAGE(JERR_INPUT_EOF, "Premature end of input file") 
JMESSAGE ( JERR_MISMATCHED„QUANT_TABLE, 

"Cannot transcode due to multiple use of quantization table %d") 
JMESSAGE (JERR_MISSING_DATA, "Scan script does not transmit all data") 
JMESSAGE (JERR_M0DE_CHANGE, "Invalid color quantization mode change") 
JMESSAGE (JERR_N0TIMPL, "Not inplemented yet") 

JMESSAGE (JERR„N0T_C0MPILED, "Requested feature was omitted at compile time") 
JMESSAGE (JERR_N0_BACKING_ST0RE, "Backing store not supported") 
JMESSAGE (JERR_N0„HUFF_TABLE, "Huffman table 0x%02x was not defined") 
JMESSAGE (JERR„NO_IMAGE, "JPEG datastream contains no image") 
JMESSAGE (JERR_N0_QUANT_TABLE, "Quantization table 0x%02x was not defined") 
JMESSAGE (JERR_NO_SOI, "Not a JPEG file: starts with 0x%02x 0x%02x") 
JMESSAGE (JERR_0UT_0F _MEM0RY, "Insufficient memory (case %d)") 
JMESSAGE ( JERR_QUANT_COMPONENTS , 

"Cannot quantize more thein %d color components") 
JMESSAGE {JERR_QUANT_FEW_COLORS, "Cannot quantize to fewer than %d colors") 
JMESSAGE (JERR_QUANT_MANY_COLORS, "Cannot quantize to more than %d colors") 
JMESSAGE (JERR„SOF_DUPLICATE, "Invalid JPEG file structure: two SOF markers") 
JMESSAGE (JERR_SOF_NO_SOS, "Invalid JPEG file structure: missing SOS marker") 
JMESSAGE (JERR_SOF_UNSUPPORTED, "Unsupported JPEG process: SOF type 0x%02x") 
JMESSAGE (JERR_SOI_DUPLICATE, "Invalid JPEG file structure: two SOI markers") 
JMESSAGE (JERR_SOS_NO„SOF, "Invalid JPEG file structure: SOS before SOF") 
JMESSAGE (JERR_TFILE„CREATE, "Failed to create teit^orary file %s") 
Jl!ffiSSAGE(JERR_TFILE_READ, "Read failed on temporary file") 
jMssage(JERR_TFILE_SEEK, "Seek failed on temporary file") 
JMESSAGE { JERR_TFILE_WRITE, 

g\ "Write failed on temporary file out of disk space?") 

JIJESSAGE { JERR_TOO_LITTLE_DATA, "Application transferred too few scanlines") 
jiiESSAGE(JERR_UNKNOWN_MARKER, "Unsupported marker type 0x%02x") 
JMESSAGE {JERR_VIRTUAL_BUG, "Virtual array controller messed up") 
JM|;SSAGE(JERR„WIDTH_0VERFL0W, "image too wide for this implementation") 
JMESSAGE (JERR_XMS_READ, "Read from XMS failed") 
J^SSAGE(JERR_XMS„WRITE, "Write to XMS failed") 
JMESSAGE ( JMSG_C0PYRIGHT , JCOPYRIGHT) 
JMESSAGE (JMSG_VERSI0N, JVERSION) 
JMESSAGE { JTRC_16BIT_TABLES , 

"Caution: qucintization tables are too coarse for baseline JPEG") 
.iMESSAGE ( JTRC_ADOBE, 

Li "Adobe APP14 marker: version %d, flags 0x%04x 0x%04x, transform %d") 
JMESSAGE (JTRC_APPO, "Unknown APPO marker (not JFIF) , length %u") 
iy&SSAGE(JTRC_APP14, "Unknown APP14 marker (not Adobe), length %u") 
i^SSAGE{JTRC_DAC, "Define Arithmetic Table 0x%02x: 0x%02x" ) 
^SSAGE(JTRC_DHT, "Define Huffman Table Ox%02x") 
JMESSAGE (JTRC_DQT, "Define Quantization Table %d precision %d") 
JIi&SSAGE{JTRC_DRI, "Define Restart Interval %u") 
JMESSAGE (JTRC_EMS_CLOSE, "Freed EMS handle %u") 
JMESSAGE (JTRC_EMS_OPEN, "Obtained EMS handle %u") 
JMESSAGE (JTRC_EOI, "End Of Image") 

JMESSAGE (JTRC_HUFFBITS, " %3d %3d %3d %3d %3d %3d %3d %3d") 

JMESSAGE (JTRC_JFIF, "JFIF APPO marker: version %d.%02d, density %dx%d %d") 
JMESSAGE ( JTRC_JFIF_BADTHUMBNAILSIZE , 

"Warning: thximbnail image size does not match data length %u") 
JMESSAGE ( JTRC_JFIF_EXTENSION, 

"JFIF extension marker: type 0x%02x, length %u") 
JMESSAGE (JTRC_JFIF_THUMBNAIL, " with %d x %d thumbnail image") 
JMESSAGE (JTRC_MISC_MARKER, "Miscellaneous marker 0x%02x, length %u") 
JMESSAGE (JTRC_PARMLESS„MARKER, "Unexpected marker 0x%02x") 
JMESSAGE (JTRC_QUANTVALS, " %4u %4u %4u %4u %4u %4u %4u %4u") 

JMESSAGE (JTRC_QUANT_3_NC0L0RS, "Quantizing to %d = %d*%d*%d colors") 
JMESSAGE (JTRC_QUANT_NCOLORS, "Quantizing to %d colors") 
JMESSAGE (JTRC_QUANT_SELECTED, "Selected %d colors for quantization") 
JMESSAGE (JTRC_RECOVERY_ACTION, "At marker Ox%02x, recovery action %d" ) 
JMES SAGE ( JTRC_RST , " RST%d " ) 
JMESSAGE ( JTRC^SMOOTH^OTIMPL, 

"Smoothing not supported with nonstandard sampling ratios") 
JMES SAGE (JTRC_SOF, "Start Of Frame 0x%02x: width=%u, height=%u, components=%d" ) 
JMES SAGE (JTRC_SOF_COMPONENT, " Component %d: %dhx%dv q=%d" ) 
JMESSAGE (JTRC_SOI, "Start of Image") 
JMESSAGE (JTRC_SOS, "Start Of Scan: %d components") 
JMESSAGE (JTRC_SOS_COMPONENT, " Component %d: dc=%d ac=%d" ) 
JMESSAGE (JTRC_SOS_PARAMS, " Ss=%d, Se=%d, Ah=%d, Al=%d") 
JMESSAGE (JTRC_TFILE„CLOSE, "Closed temporary file %s") 



2 



JMESSAGE(JTRC_TFILE_OPEN, "Op^fe^ ten^orary file %s") 

JHES SAGE ( JTRC_THUMB_ JPEG , t^V 

■JFIF extension marker: ^^ro- compressed thumbnail image, leng^^^u") 
JMESSAGE ( JTRC_THUMB_PALETTE , 

■JFIF extension marker: palette thumbnail image, length %u") 
JMES SAGE ( JTRC_THUMB_RGB , 

"JFIF extension marker: RGB thumbnail image, length %u') 
JMESSAGE ( JTRC_UNKNOWN_IDS , 

■Unrecognized conponent IDs %d %d %d, assuming YCbCr") 
JMESSAGE (JTRC.XMS_CLOSE, 'Freed XMS handle %u") 
JMESSAGE (JTRC_XMS_0 PEN, "Obtained XMS handle %u") 

JMESSAGE (JWRN_JUX)BE.XFORM, "Unknown Adobe color transform code %d") 
JMESSAGE ( JWRN_BOGUS_PROGRESSION, 

■Inconsistent progression sequence for component %d coefficient %d") 
JMESSAGE { JWRN_EXTRANEOUS_DATA, 

"Corrupt JPEG data: %u extrauieous bytes before marker Ox%02x") 
JMESSAGE {JWRN„HIT_MARKER, "Corrupt JPEG data: prematiire end of data segment") 
JMESSAGE (JWRN_HUFF_BAD_CODE, "Corrupt JPEG data: bad Huffman code") 
JMESSAGE (JWRN_JFIF_MAJOR, "Warning: unknown JFIF revision number %d.%02d") 
JMESSAGE {JWRN_JPEG„EOF, "Premature end of JPEG file") 
JMESSAGE ( JWRN_MUST_RESyNC , 

"Corrupt JPEG data: found marker Ox%02x instead of RST%d") 
JMESSAGE (JWRN_NOT_SEQUENTIAL, "Invalid SOS parameters for sequential JPEG") 
JMESSAGE (JWRN_TOO_MUCH_DATA, "Application transferred too many scanlines") 



#ifdef JMAKE_ENUM_LIST 

JMSG_LASTMSGCODE 
) J_MESSAGE_CODE; 



#undef JMAKE_ENUM_LIST 
#^adif /* JMAKE_ENUM_LIST */ 

/^JZap JMESSAGE macro so that future re-inclusions do nothing by default */ 
#gndef JMESSAGE 



Mfndef JERROR_H 
#d|fine JERROR_H 

Macros to simplify using the error and trace message stuff */ 
/^\The first parameter is either type of cinfo pointer */ 

Fatal errors (print message and exit) */ 
^fine ERREXIT (cinfo, code) \ 
L^r( (cinfo) ->err->msg_code - (code), \ 

Li (* (cinfo) ->err->error_exit) ( ( j_common_ptr) (cinfo))) 
Mefine ERREXITl (cinfo, code, pi) \ 
l^Ji (cinfo) ->err->msg_code - (code) , \ 
~-i (cinfo) ->err->msg_parm. i [0] = (pi), \ 
r% (* (cinfo) ->err->error_exit) ( ( j_common_ptr) (cinfo))) 
^fine ERREXIT2 (cinfo, code, pi, p2) \ 
^^( (cinfo) ->err->msg_code = (code), \ 

(cinfo) ->err->msg_parm.i [0] = (pi), \ 

(cinfo) ->err->msg_parm.i [1] = (p2 ) , \ 

(* (cinfo) ->err->error_exit) ( ( j_common_ptr) (cinfo) ) ) 
idefine ERREXIT3 (cinfo, code, pi, p2 ,p3 ) \ 
( (cinfo) ->err->msg_code = (code), \ 

(cinfo) ->err->msg„parm. i [0] = (pi), \ 

(cinfo) ->err->msg_parm. i [1] = (p2), \ 

(cinf o) ->err->msg_parm. i [2] = (p3), \ 

(* (cinfo) ->err->error_exit) ( ( j_common_ptr) (cinfo) ) ) 
#define ERREXIT4 (cinfo, code, pi, p2 ,p3 ,p4) \ 
( (cinfo) ->err->msg_code = (code), \ 

(cinfo) ->err->msg_parm. i [0] - (pi), \ 

(cinfo) ->err->msg_parm. i [1] = (p2) , \ 

(cinfo) ->err->msg_parm. i [2] = (p3) , \ 

(cinfo) ->err->msg_^arm. i [3 3 = (p4) , \ 

(* (cinfo) ->err->error_exit) ( ( j_common_ptr ) (cinfo) ) ) 
#define ERREXITS (cinfo, code, str) \ 
( (cinfo) ->err->msg_code = (code), \ 

strncpy( (cinfo) ->err->msg_parm.s, (str) , JMSG_STR_PARM,J1AX) , \ 
(* (cinfo) ->err->error_exit) ( ( j„common__ptr) (cinfo) ) ) 

#define MAKESTMT (stuff ) do { stuff } while (0) 

/* Nonfatal errors (we can keep going, but the data is probably corrupt) */ 
#define WARNMS (cinfo, code) \ 

( (cinfo) ->err->msg_code = (code), \ 
(* (cinfo) ->err->emit„message) ( ( j_common_ptr) (cinfo), -1)) 
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#define WARNMSl (cinf o, code, pl^^^ 
( (cinfo) ->err->msg_code = (V^B) ' \ 
(cinf o) ->err->msg_pann. i [O^^^(pl) , \ 

(* (cinf o) ->err->emit_message) ( ( j_coinmon_ptr) (cinfo) , -1)) 
tdefine WARNMS2 (cinf o, code, pi, p2 ) \ 
( (cinf o) ->err->insg_code = (code), \ 
(cinfo) ->err->msg_pann. i [0] = (pi), \ 
(cinfo) ->err->msg_parm. i [1] = (p2) , \ 

(* (cinf o) ->err->emit_message) ( ( j_coinmon__ptr) (cinfo), -1)) 

/* Informational /debugging messages */ 
#define TRACEMS (cinf o, Ivl, code) \ 
( (cinf o) ->err->msg_code = (code), \ 
(* (cinfo) ->err->emit_message) { ( j_common_ptr ) (cinfo) , (Ivl) ) ) 
#define TRACEMS 1 (cinfo, Ivl , code, pi) \ 
( (cinf o) ->err->msg_code = (code), \ 
(cinfo) ->err->msg_parm. i [0] = (pi), \ 

(* (cinfo) ->err->emit_message) ( ( j_common__ptr ) (cinfo) , (Ivl) ) ) 
#define TRACEMS2 (cinfo, Ivl, code, pi, p2) \ 
( (cinfo) ->err->msg_code = (code), \ 
(cinf o) ->err->msg_parm. i [0] - (pi), \ 
(cinf o) ->err->msg_parm. i [ 1] = (p2), \ 

(* (cinfo) ->err->emit_message) { ( j_common__ptr ) (cinfo) , (Ivl) ) ) 
#def ine TRACEMS3 ( cinfo , Ivl , code , pi , p2 , p3 ) \ 

MAKESTMT(int * _mp = (cinf o) ->err->msg_parm. i ; \ 

_mp[0] = (pi); _mp[13 = (p2); _mp[2] = (p3); \ 
(cinf o) ->err->msg_code = (code); \ 

(* (cinfo) ->err->emit_message) ( ( j_common_ptr) (cinfo), (Ivl)); ) 
#define TRACEMS4 (cinf o, Ivl , code, pi ,p2 , p3 ,p4 ) \ 
MAKESTMT(int * _mp = (cinf o) ->err->msg_parm. i ; \ 

jnp[0] = (pi); _mp[13 = (p2); _mp[2] = (p3) ; _mp[33 = (p4) ; \ 
(cinf o) ->err->msg_code = (code); \ 

(* (cinfo) ->err->emit„message) ( ( j_common_ptr) (cinfo), (Ivl)); ) 
#^fine TRACEMS5 (cinfo, Ivl, code, pi, p2,p3,p4,p5) \ 
fKAKESTMT ( int * _mp = (cinf o) ->err->msg_parm. i ; \ 

-mpIO] = (pi); _mp[ll = (p2); _it^[2] = (p3); jtip[3] = (p4) ; \ 

_mp[43 = (p5); \ 
Si (cinf o) ->err->msg_code = (code); \ 

(* (cinfo) ->err->emit_message) ( ( j_conimon_ptr) (cinfo), (Ivl)); ) 
rdef ine TRACEMS8 (cinfo , Ivl , code , pi , p2 , p3 , p4 , p5 , p6 , p7 , p8 ) \ 
-.rHAKESTMTdnt * _mp = (cinf o) ->err->msg_parm. i ; \ 

_mp[0] = (pi); _mp[13 = (p2); _mpC23 = (p3); _mp[33 = (p4); \ 

_mp[4] = (p5); _mp[5] = (p6); _mp[6] = (p7) ; = (p8) ; \ 

= (cinf o) ->err->msg„code = (code); \ 

L.L (* (cinf o) ->err->emit_message) ( { j_common_ptr) (cinfo), (Ivl)); ) 
tEefine TRACEMSS (cinf o, Ivl , code, str) \ 

(cinf o) ->err->msg_code = (code), \ 
n= stmcpy( (cinfo) ->err->msg_parm. s, (str), JMSG_STR_PARM_MAX) , \ 
''i {* (cinfo) ->err->emit_message) ( ( j_common_ptr ) (cinfo) , (Ivl) ) ) 

y 

tehdif /* JERROR_H */ 
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/* 

* j include. h 
* 

* Copyright (C) 1991-1994, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file exists to provide a single place to fix any problems with 

* including the wrong system include files. (Common problems are taken 

* care of by the standard jconfig symbols, but on really weird systems 

* you may have to edit this file.) 
* 

* NOTE: this file is NOT intended to be included by applications using the 

* JPEG library. Most applications need only include jpeglib.h. 
*/ 



/* Include auto-config file to find out which system include files we need. */ 

#include "jconfig.h" /* auto configuration options */ 

#define JCONFIG_INCLUDED /* so that jpeglib.h doesn't do it again */ 

/* 

* We need the NULL macro and size_t typedef. 

* On an ANSI -conforming system it is sufficient to include <stddef .h>. 

* Otherwise, we get them from <stdlib.h> or <stdio.h>; we may have to 

* pull in <sys / types .h> as well. 

* Note that the core JPEG library does not require <stdio.h>; 

* only the default error handler and data source/destination modules do. 

* But we must pull it in because of the references to FILE in jpeglib.h. 

* You can remove those references if you want to compile without <stdio.h>. 

H 

#fiidef HAVE_STDDEF_H 
#fefjclude <stddef .h> 
#§4^1 f 

#i|def HAVE_STDLIB_H 
# include <stdlib.h> 
#iftdif 

#lfdef NEED_SYS_TYPES_H 
ia-nclude <sys/types .h> 
iendif 

frZhclude <stdio.h> 

'*'s^e need memory copying and zeroing functions, plus strncpyO, 
*J ANSI and System V implementations declare these in <string.h>. 
H BSD doesn't have the mem() functions, but it does have bcopy () /bzero ( ) , 
Jil Some systems may declare memset and memcpy in <memory.h>. 

WJ 

* NOTE: we assume the size parameters to these functions are of type size_t. 

* Change the casts in these macros if not! 
*/ 

#ifdef NEED_BSD_STR1NGS 
#include <strings.h> 

#define MEMZERO (target, size) bzero((void *) (target), (size_t) (size) ) 

#define MEMCOPY (dest, src, size) bcopy((const void *) (src) , (void *)(dest), (size_t) (size) ) 
#else /* not BSD, assume ANSI/SysV string lib */ 
#include <string.h> 

#define MEMZERO (target , size) memset((void *) (target), 0, (size_t) (size) ) 

#define MEMCOPY (dest, src , size) memcpy((void *)(dest), (const void *) (src) , (size_t) (size) ) 

#endif 

/* 

* In ANSI C, and indeed any rational implementation, size_t is also the 

* type returned by sizeofO. However, it seems there are some irrational 

* implementations out there, in which sizeof () returns an int even though 

* size_t is defined as long or unsigned long. To ensure consistent results 

* we always use this SIZEOFO macro in place of using sizeof () directly. 
*/ 

#define SIZEOF (object) ((size_t) sizeof (object) ) 
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d^^^nd fwriteO always invoke them th^H^h 



/* 

* The modules that use fread^^^d fwriteO always invoke them th^i^h 

* these macros. On some systems you may need to twiddle the argument casts. 

* CAUTION: argxHtient order is different from underlying functions! 
*/ 

tdefine JFREAD( f ile,buf , sizeofbuf ) \ 

((size_t) fread( (void *) (buf ) , (size.t) 1, (size.t) (sizeofbuf ) , (file))) 
idefine JFWRITE(file,buf, sizeofbuf ) \ 

((size_t) fwrite( (const void *) (buf ) , (size„t) 1, (size_t) (sizeofbuf), (file))) 
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* jmemsys.h 
* 

* Copyright (C) 1992-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This include file defines the interface between the system- independent 

* and system-dependent portions of the JPEG memory manager. No other 

* modules need include it. (The system- independent portion is jmemmgr.c; 

* there are several different versions of the system-dependent portion.) 
* 

* This file works as -is for the system- dependent memory managers supplied 

* in the IJG distribution. You may need to modify it if you write a 

* custom memory manager. If system- dependent changes are needed in 

* this file, the best method is to tifdef them based on a configuration 

* symbol supplied in jconfig.h, as we have done with USE_MSDOS_MEMMGR 

* and USE_MAC_MEMMGR. 
*/ 




/* Short forms of external names for systems with brain-damaged linkers. */ 

#ifdef NEED_SHORT_EXTERNAL_NAMES 

#define jpeg_get_small jGetSmall 

#define jpeg_f ree_small jFreeSmall 

#define jpeg_get_large jGetLarge 

#define jpeg__f ree_large jFreeLarge 

# define jpeg_meiT\_ava liable jMemAvail 

tdefine jpeg_open_backing_store jOpenBackStore 

tdefine jpeg„meit\_init jMemlnit 

#4efine jpeg_mem^term jMemTerm 

tl^ndif /* NEED_SHORT_EXTERNAL_NAMES */ 

m 

*JThese two functions are used to allocate and release small chunks of 

*J memory. (Typically the total amount requested through jpeg_get_small is 

*?no more than 20K or so; this will be requested in chunks of a few K each.) 

^?Behavior should be the same as for the standard library functions malloc 

gland free; in particular, jpeg_get_small must return NULL on failure. 

g^On most systems, these ARE malloc and free. jpeg_f ree_small is passed the 

^=^size of the object being freed, just in case it's needed. 

i On an 80x86 machine using small-data memory model, these manage near heap. 

E^ERN{void *) jpeg_get_small JPP ( ( j_common_ptr cinfo, size_t sizeofobject) ) ; 
E^TERN(void) jpeg_f ree_small JPP ( ( j_common_ptr cinfo, void * object, 
f ■![ size_t sizeofobject) ) ; 

/n 

These two functions are used to allocate and release large chunks of 
memory (up to the total free space designated by jpeg_mem^ava liable) . 

* The interface is the same as above, except that on an 80x86 machine, 

* far pointers are used. On most other machines these are identical to 

* the jpeg_get/free_small routines; but we keep them separate anyway, 

* in case a different allocation strategy is desirable for large chunks. 
*/ 

EXTERN(void *) jpeg_get_large JPP ( ( j_common__ptr cinfo, 

size_t sizeofobject) ) ; 
EXTERN(void) jpeg_f ree^large JPP ( ( j_common_jptr cinfo, void * object, 
size_t sizeofobject)); 

/* 

* The macro MAX_JUjLOC_CHUNK designates the maximum number of bytes that may 

* be requested in a single call to jpeg_get_large (and jpeg_get_small for that 

* matter, but that case should never come into play) . This macro is needed 

* to model the 64Kb-segment-size limit of far addressing on 80x86 machines. 

* On those machines, we expect that jconfig.h will provide a proper value. 

* On machines with 3 2 -bit flat address spaces, any large constant may be used. 
* 

* NB: jmemmgr.c expects that MAX_ALLOC_CHUNK will be representable as type 

* size_t and will be a multiple of sizeof (align_type) . 
*/ 

tifndef MAX_ALLOC_CHUNK /* may be overridden in jconfig.h */ 

#define MAX_ALLOC_CHUNK lOOOOOOOOOL 

#endif 
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* This routine computes the ^^Bl space still available for allod^^Hn by 

* jpeg_get_large . If more s^^^ than this is needed, backing sto^^^ill be 

* used. NOTE: any memory already allocated must not be counted. 
* 

* There is a minimum space requirement, corresponding to the minimum 

* feasible buffer sizes; jmemmgr.c will request that much space even if 

* jpeg_mem_available returns zero. The maximum space needed, enough to hold 

* all working storage in memory, is also passed in case it is useful. 

* Finally, the total space already allocated is passed. If no better 

* method is available, cinf o->mem->max_jnemory_to_use - already_al located 

* is often a suitable calculation. 
* 

* It is OK for jpegjtiem_ava liable to underestimate the space available 

* (that'll just lead to more backing-store access than is really necessary). 

* However, an overestimate will lead to failure. Hence it's wise to subtract 

* a slop factor from the true available space. 5% should be enough. 
* 

* On machines with lots of virtual memory, any large constant may be returned 

* Conversely, zero may be returned to always use the minimum amoxint of memory 
*/ 

EXTERN(long) jpeg_men\_ava liable JPP ( ( j_common_ptr cinfo, 

long min_bytes_needed, 
long max_bytes_needed, 
long already_al located) ) ; 



* This structure holds whatever state is needed to access a single 

* backing-store object. The read/write/ close method pointers are called 
p~hy jmemmgr.c to manipulate the backing-store object; all other fields 
*=^are private to the system-dependent backing store routines. 

il 

tdefine TEMP_NAME_LENGTH 64 /* max length of a temporary file's name */ 



#ildef USE_J4SD0S_MEMMGR 



/* DOS-specific junk */ 



t^edef unsigned short XMSH; 
t^edef unsigned short EMSH; 



type of extended-memory handles */ 
type of expanded -memory handles */ 



t^^edef union { 

l_ short file^handle; 

t^|cMSH xms_handle; 

LEMSH ems_handle; 
}n handl e_uni on ; 



/* DOS file handle if it's a temp file */ 
/* handle if it's a chunk of XMS */ 
/* handle if it's a chunk of EMS */ 



#ehdif /* USE_MSDOS_MEMMGR */ 



pjdef USE_MAC_MEMMGR 
#i*iclude <Files.h> 
iendif /* USE_MAC_MEMMGR 



/* Mac-specific junk */ 



typedef struct backing_store_struct * backing_store_ptr ; 

typedef struct backing_s tor e_s true t { 

/* Methods for reading/writing/closing this backing-store object */ 
JMETHOD(void, read_backing_store, ( j_common_ptr cinfo, 
backing_store_ptr info, 
void * buf f er_address , 
long f ile_offset, long byte_count) ) ; 
JMETHOD(void, write_backing_store , ( j_common_ptr cinfo, 
backing„store_ptr info, 
void * buf fer_address, 
long file_offset, long byte_count) ) ; 
JMETHOD(void, close_backing_store, ( j_common_j>tr cinfo, 
backing_store_ptr info) ) ; 

/* Private fields for system-dependent backing-store management */ 
#ifdef USE_MSDOS_MEMMGR 

/* For the MS-DOS manager (jmemdos.c), we need: */ 

handl e_uni on handle; /* reference to backing-store storage object */ 

char temp_namelTEMP_NAME_LENGTH] ; /* name if it's a file */ 
#else 

#ifdef USE_;iAC_,MEMMGR 

/* For the Mac manager (jmemmac.c), we need: */ 

short teiip_file; /* file reference number to temp file */ 
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FSSpec tempSpec; /* th^M|Spec for the teir^) file */ 

char temp_name[TEMP_JJAME_L^^H] ; /* name if it's a file * 
#else 

/* For a typical irt^lementation with temp files, we need: 
FILE * ten^)_file; /* stdio reference to temp file */ 

char temp_nametTEMP_NAME_LENGTH] ; /* name of teir^ file */ 

#endif 

tendif 

} backing_store_inf o; 



/* 

* Initial opening of a backing-store object. This must fill in the 

* read/write/close pointers in the object. The read/write routines 

* may take an error exit if the specified mciximum file size is exceeded. 

* (If jpeg_mem„availcLble always returns a large value, this routine can 

* just take an error exit.) 
*/ 

EXTERN(void) jpeg_open_backing_store JPP ( ( j„common_ptr cinfo, 

backing_store jtr info, 
long total_bytes_needed) ) ; 



/* 

* These routines take care of any system-dependent initialization and 

* cleanup required. jpeg_men\_init will be called before anything is 

* allocated (and, therefore, nothing in cinfo is of use except the error 

* manager pointer) . It should return a suitable default value for 

* max_memory_to_use; this may subsequently be overridden by the surrounding 

* application. (Note that max_memory_to_use is only important if 
^.^jpeg_men\_a vail able chooses to consult it ... no one else will.) 

jpeg_meir\_term may assume that all requested memory has been freed and that 
i^lall opened backing-store objects have been closed. 

B 

EXTERN(long) jpeg_mem_init JPP ( ( j_common_ptr cinfo)); 
E^TERN(void) jpeg_mem_term JPP ( ( j_coramon_ptr cinfo)); 



■SIS' 



hj 
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/* 

* jmorecfg.h 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains additional configuration options that customize the 

* JPEG software for special applications or support machine-dependent 

* optimizations. Most users will not need to touch this file. 
*/ 



/* 

* Define BITS_IN_JSAMPLE as either 

* 8 for 8-bit sample values (the usual setting) 

* 12 for 12-bit sample values 

* Only 8 and 12 are legal data precisions for lossy JPEG according to the 

* JPEG standard, and the IJG code does not support anything else! 

* We do not support run- time selection of data precision, sorry. 
*/ 

#define BITS_IN_JSAMPLE 8 /* use 8 or 12 */ 



/* 

* Maximum number of components (color channels) allowed in JPEG image. 

* To meet the letter of the JPEG spec, set this to 255. However, darn 

* few applications need more than 4 channels (maybe 5 for CMYK + alpha 

* mask) . We recommend 10 as a reasonable compromise; use 4 if you are 

* really short on memory. (Each allowed component costs a hundred or so 
f kbytes of storage, whether actually used in an image or not.) 



tglfine MAX_C0MPONENTS 10 /* maximum number of image conponents */ 



Basic data types. 

'"tfYou may need to change these if you have a machine with unusual data 
S type sizes; for example, "char" not 8 bits, "short" not 16 bits, 
rfsor "long" not 32 bits. We don't care whether "int" is 16 or 32 bits, 
'♦'but it had better be at least 16. 
^/ 

1=1: 

Representation of a single sample (pixel element value) . 

We frequently allocate large arrays of these, so it's important to keep 
jtj them small. But if you have memory to burn and access to char or short 
h*\ arrays is very slow on your hardware, you might want to change these. 

3 

fif BITS_IN_JSAMPLE == 8 

JSAMPLE should be the smallest type that will hold the values 0..255. 
* You can use a signed char by having GETJSAMPLE mask it with OxFF. 
*/ 

#ifdef HAVE_UNSIGNED_CHAR 

typedef unsigned char JSAMPLE; 

tdefine GETJSAMPLE (value) ((int) (value)) 

#else /* not HAVE„UNSIGNED_CHAR */ 

typedef char JSAMPLE; 
#ifdef CHAR_IS_UNSIGNED 

#define GETJSAMPLE (value) ((int) (value)) 
#else 

#define GETJSAMPLE (value) ((int) (value) & OxFF) 
#endif /* CHAR_IS_UNSIGNED */ 

#endif /* HAVE_UNSIGNED_CHAR */ 

#define MAXJSAMPLE 255 
#define CENTERJSAMPLE 128 

#endif /* BITS_IN_JSAMPLE == 8 */ 



#if BITS_IN_JSAMPLE == 12 
/* JSAMPLE should be the smallest type that will hold the values 0..4095. 
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* On nearly all machines "s 
*/ 



will do 



typedef short JSAMPLE; 

idefine GET JSAMPLE (value) ( (int) (value)) 

tdefine MAXJSAMPLE 4095 
tdefine CENTERJSAMPLE 2048 

tendif /* BITS_IN_ JSAMPLE == 12 */ 



/* Representation of a DCT frequency coefficient. 

* This should be a signed value of at least 16 bits; "short" is usually OK. 

* Again, we allocate large arrays of these, but you can change to int 

* if you have memory to burn and "short" is really slow. 
*/ 

typedef short JCOEF; 



/* Conpressed datastreams are represented as arrays of JOCTET. 

* These must be EXACTLY 8 bits wide, at least once they are written to 

* external storage. Note that when using the stdio data source/destination 

* managers, this is also the data type passed to f read/f write . 
*/ 

#ifdef HAVE_UNSIGNED_CHAR 

typedef unsigned char JOCTET; 
#define GET JOCTET (value) (value) 

#Bise /* not HAVE_UNSIGNED_CHAR */ 

tgrpedef char JOCTET; 

#lfdef CHAR_IS_UNSIGNED 

^^fine GETJOCTET (value) (value) 

teise 

#Qfefine GETJOCTET (value) ((value) & OxFF) 
#yidif /* CHAR„IS_UNSIGNED */ 

^Sndif /* HAVE_UNSIGNED_CHAR */ 

These typedef s are used for various table entries and so forth. 

They must be at least as wide as specified; but making them too big 
yi won't cost a huge amount of memory, so we don't provide special 
ffl extraction code like we did for JSAMPLE. (In other words, these 
— typedef s live at a different point on the speed/space tradeoff curve.) 

UINT8 must hold at least the values 0..255. */ 

#ifdef HAVE_UNSIGNED„CHAR 

typedef unsigned char UINT8; 

#else /* not HAVE_UNSIGNED_CHAR */ 

#ifdef CHAR_IS„UNSIGNED 

typedef char UINT8; 

#else /* not CHAR_IS_UNSIGNED */ 

typedef short UINT8; 

tendif /* CHAR_IS_UNSIGNED */ 

#endif /* HAVE_UNSIGNED_CHAR */ 

/* UINT16 must hold at least the values 0.. 65535. */ 

#ifdef HAVE_UNSIGNED_SHORT 
typedef unsigned short UINT16; 
#else /* not HAVE_UNSIGNED_SHORT */ 
typedef unsigned int UINT16; 
#endif /* HAVE_UNSIGNED_SHORT */ 

/* INT16 must hold at least the values -32768 .. 32767 . */ 

#ifndef XMD_H /* Xll/xmd.h correctly defines INT16 */ 

typedef short INT16; 

#endif 

/* INT32 must hold at least signed 32-bit values. */ 

#ifndef XMD_H /* Xll/xmd.h correctly defines INT32 */ 



2 



typedef int INT32; 
#endi£ 

/* Datatype used for image dimensions. The JPEG standard only supports 

* images up to 64K*64K due to 16-bit fields in SOF markers. Therefore 

* "unsigned int" is sufficient on all machines. However, if you need to 

* handle larger images and you don't mind deviating from the spec, you 

* can change this datatype. 
*/ 

typedef unsigned int JDIMENSION; 

#define JPEG_MAX_DIMENSION 65500L /* a tad under 64K to prevent overflows */ 



/* These macros are used in all function definitions and extern declarations. 

* You could modify them if you need to change function linkage conventions; 

* in particular, you'll need to do that to make the library a Windows DLL. 

* Another application is to make all functions global for use with debuggers 

* or code profilers that require it. 
*/ 

/* a function called through method pointers: */ 

#define METHODDEF ( type ) static type 

/* a function used only in its module: */ 

#define LOCAL (type) static type 

/* a function referenced thru EXTERNs: */ 

#define GLOBAL (type) type 

/* a reference to a GLOBAL f vine t ion: */ 

#define EXTERN(type) extern type 



/^iThis macro is used to declare a "method", that is, a function pointer, 
if] We want to supply prototype parameters if the compiler can cope. 
^^Note that the arglist parameter must be parenthesized! 
^- Again, you can customize this if you need special linkage keywords. 

47 

iijedef HAVE„PROTOTYPES 

^Jyefine JMETHOD (type, methodname, arglist) type ( *methodname) arglist 
#else 

^fefine JMETHOD (type, me thodname, arglist) type (*methodname) () 
#yidif 

Here is the pseudo- keyword for declaring pointers that must be "far" 
on 80x86 machines. Most of the specialized coding for 80x86 is handled 
rfi t>y just saying "FAR *" where such a pointer is needed. In a few places 
explicit coding is needed; see uses of the NEED_FAR„POINTERS symbol. 

H/ 

Imtiaz : commented this out. 
fePfdef NEED_FAR_PO INTERS 
tdefine FAR far 
#else 

#define FAR far 
#endif 



/* 

* On a few systems, type boolean and/or its values FALSE, TRUE may appear 

* in standard header files. Or you may have conflicts with application- 

* specific header files that you want to include together with these files. 

* Defining HAVE_BOOLEAN before including jpeglib.h should make it work. 
*/ 

#ifndef HAVE_BOOLEAN 
typedef int boolean; 
#endif 

#ifndef FALSE /* in case these macros already exist */ 

idefine FALSE 0 /* values of boolean */ 

tendif 

iifndef TRUE 
#define TRUE 1 
#endif 



/* 

* The remaining options affect code selection within the JPEG library, 
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* but they don't need to be i^Kble to most applications using th^^ibrary. 

* To minimize application ns^^Hace pollution, the symbols won't 

* defined unless JPEG_INTERNS^or JPEG_INTERNAL_OPTIONS has been^Rined. 

*/ 

tifdef JPEG_INTERNALS 
#define JPEG_INTERNAL_OPTIONS 
#endif 

tifdef JPEG_INTERNAL_0PTIONS 



* These defines indicate whether to include various optional functions. 

* Undefining some of these symbols will produce a smaller but less capable 

* library. Note that you can leave certain source files out of the 

* compilation/ linking process if you've #undef 'd the corresponding symbols. 

* (You may HAVE to do that if your compiler doesn't like null source files.) 
*/ 

/* Arithmetic coding is unsupported for legal reasons. Complaints to IBM. */ 

/* Capability options common to encoder and decoder: */ 

#define DCT_ISLOW_SUPPORTED /* slow but accurate integer algorithm */ 
#define DCT_IFAST_SUPPORTED /* faster, less accurate integer method */ 
#define DCT_FLOAT_SUPPORTED /* floating-point: accurate, fast on fast HW */ 

/* Encoder capability options: */ 

#undef C_ARITH_CODING_SUPPORTED /* Arithmetic coding back end? */ 
idefine C_MULTISCAN_FILES_SUPPORTED /* Multiple-scan JPEG files? */ 
#ilfine C_PROGRESSIVE_SUPPORTED /* Progressive JPEG? (Requires MULTISCAN)*/ 

Mefine ENTROPY_OPT_SUPPORTED /* Optimization of entropy coding parms? */ 

/l^Note: if you selected 12 -bit data precision, it is dangerous to turn off 
y s ENTROPY_OPT_SUPPORTED . The standard Huffman tables are only good for 8-bit 
precision, so jchuff .c normally uses entropy optimization to compute 
usable tables for higher precision. If you don't want to do optimization, 
*?you'll have to supply different default Huffman tables. 

'djThe exact same statements apply for progressive JPEG: the default tables 
don't work for progressive mode. 

idfefine INPUT_SM00THING„SUPPORTED 



(This may get fixed, however.) 
/* Input image smoothing option? 



/r* Decoder capability options: 



iSSidef D_ARITH_CODING_SUPPORTED 
tSefine D_MULTISCAN_FILES_SUPPORTED 
#dfefine D_PROGRESSIVE_SUPPORTED 
fdbfine SAVE_JIARKERS_SUPPORTED 
#^fine BLOCK_SMOOTHING_SUPPORTED 
teefine IDCT_SCALING_SUPPORTED 
fe&idef UPSAMPLE_SCALING_SUPPORTED 
#define UPSAMPLE_MERGING„SUPPORTED 
#define QUANT_1PASS_SUPP0RTED 
tdefine QUANT_2PASS_SUPP0RTED 



/* Arithmetic coding back end? */ 

/* Multiple-scan JPEG files? */ 

/* Progressive JPEG? (Requires MULTISCAN)*/ 

/* jpeg_save juarkers ( ) needed? */ 

/* Block smoothing? (Progressive only) */ 

/* Output rescaling via IDCT? */ 

/* Output rescaling at upsample stage? */ 

/* Fast path for sloppy upsampling? */ 

/* 1-pass color quantization? */ 

/* 2 -pass color quantization? */ 



/* more capability options later, no doubt 



* Ordering of RGB data in scanlines passed to or from the application. 

* If your application wants to deal with data in the order B,G,R, just 

* change these macros. You can also deal with formats such as R,G,B,X 

* (one extra byte per pixel) by changing RGB_PIXELSIZE. Note that changing 

* the offsets will also change the order in which colormap data is organized. 

* RESTRICTIONS: 

* 1. The sample applications cjpeg,djpeg do NOT support modified RGB formats. 

* 2. These macros only affect RGB<=>YCbCr color conversion, so they are not 

* useful if you are using JPEG color spaces other than YCbCr or grayscale. 

* 3. The color quantizer modules will not behave desirably if RGB_PIXELSIZE 

* is not 3 (they don't understand about dummy color components!). So you 

* can't use color quantization if you change that value. 
*/ 

#define RGB_RED 0 /* Offset of Red in an RGB scanline element */ 

#define RGB_GREEN 1 /* Offset of Green */ 
idefine RGB_BLUE 2 /* Offset of Blue */ 

#define RGB.PIXELSIZE 3 /* JSAMPLEs per RGB scanline element */ 
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/* Definitions for 



speed-rel 




(ptimizations . */ 




/* If your compiler supports inline functions, define INLINE 
* as the inline keyword; otherwise define it as empty. 



*/ 



iifndef INLINE 

tifdef ^GNUC 

#define INLINE , 
#endif 



.inline 



/* for instance, GNU C knows about inline */ 



#ifndef INLINE 
#define INLINE 
#endif 



/* default is to define it as empty */ 



#endif 



/* On some machines (notably 68000 series) "int" is 32 bits, but multiplying 

* two 16-bit shorts is faster than multiplying two ints. Define MULTIPLIER 

* as short on such a machine. MULTIPLIER must be at least 16 bits wide. 
*/ 

#ifndef MULTIPLIER 

#define MULTIPLIER int /* type for fastest integer multiply */ 



/* FAST_FLOAT should be either float or double, whichever is done faster 

* by your compiler. (Note that this type is only used in the floating point 

* DCT routines, so it only matters if you've defined DCT_FLOAT_SUP PORTED . ) 
Typically, float is faster in ANSI C compilers, while double is faster in 

^ipre-ANSI compilers (because they insist on converting to dovible anyway) . 
i^lThe code below therefore chooses float if we have ANSI -style prototypes. 

3? 

Mlndef FAST_FLOAT 
#4fdef HAVE_PROTOTyPES 
#dfefine FAST_FLOAT float 
W&se 

tdefine FAST_FLOAT double 

#j!idif 

#ehdif 

#endif /* JPEG_INTERNAL_OPTIONS */ 



#endif 
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f or ( i=l ; i<4 ; r_Leye [ 



abs (r_Leye [i] ) 



) 

vl = sqrt (r_Leye (U *r_Leye [1] +r^^ye [2] *r_Leye [2] +r_Leye [3] *r_Leye [ 
for (i = l; i<4 ; i + + ) { r_Leye [ i ) / = vl ; LL I x] =l/r_Leye [ i] ; } 
if (how== ' Y' ) LLL=IL [1] / (r_ALscale [1] *LL [1] ) ; 
v3=hypot (r_Leye (1) , r_Leye [2] ) ; v2=-r_Leye [2] *r_Leye [3] /v3 
ul=r_Leye [2] /v3 ; u2= -r_Leye ( 1 ] / v3 ; 

a=Na[2] *u2-Na[l] *ul ; b=Na[3] *v3-Na[2l *v2-Na[l] *vl ; 

ml=(int) ( min(r_LE/r_DIM,r_HI*a/ (b*r_DIM) ) ) ; m2=(int) (ml*b/a) 

a=r_DIM/du ; unl=ul*Na [1] *a ; un2=u2*Na [ 2 ] *a ; 
vnl=vl*Na [1] *a ; vn2= v2*Na [ 2 ] *a ; vn3=v3 *Na [ 3 ] *a ; 



i 



vl=-r_Leye [1] *r_Leye (3] /v3 



du= min (a/ml , b/m2) 



NX(0] =0; 
NX [2] =0; 

NX [4] = (int) (-unl) ; 

NX [6] = (int) (ml*r_DIM-l) ; 

NX [8] =NX [6] ; 

NX [10] = (int) (un2) ; 

NX [12] =NX [0] ; 

a= max( (double) (r_HI)/(r 

for (i=l; i<=13; i+=2) 



NX [1] = (int) (r_HI+vn2) ; 
NX [3] = (int) (r_HI+vn2-vn3) ; 
NX [5] = (int) (r_HI+vnl+vn2-vn3) ; 
NX [7] = (int) (r_HI-vl* (NX [6] -un2) /ul-vn3) 
NX [9] = (int) (r_HI-vl* (NX [8] -un2) /ul) ; 
NX [11] = (int) (r_HI) ; 
NX [13] =NX [1] ; 
MAXY-25) , (double) (r LE) / (r MAXX-225) ) ; 



nx [i] = (int) (NX [i] /a + 20) ; 

nx [i-1] = (int) (NX [i-1] /a4-220) ; 

} 

// ! ! setf illstyle (EMPTY_FILL, 0) ; bar (214 , 17 , r_MAXX , r_MAXY) ; 

if ( (ml< = 3) I I (m2< = 3) | | (du<0.001) ) 

{ 

sprintf ( r_error Rendered image is too small"); 
return false; 

/A^! setlinestyle (SOLID_LINE, 0 , NORM_WIDTH) ; rectangle (216, 19, 224+r_LE/a, 24+r_HI/a) 
/^!l ! drawpoly ( 7 , nx ) ; 

b=;3;2 0-unl/a; c = 20+(r HI+vnl+vn2 ) /a ; 



line (b, c , nx [0] , nx [1] ) ; line (b , c , nx [4] , nx [5] ) ; line (b, c 
bar (b, c,b+8, c + 8) ; bar (nx [0] ,nx [1] , nx [ 0] +16 , nx [ 1 ] +8 ) ; 
bar (nx [4] ,nx [5] , nx [4 ] +16 , nx [ 5 ] +8 ) ; bar (nx [8] -8 ,nx [9] , nx [8] +8 
outtextxy (b, c, "O" ) ; 

if (r_OZ>0) outtextxy (nx [4] , nx [5] , "z 
switch (r_OX) { 



111 
IM 

im 

lk\ 

if\ 

lU 
I'H 

rn 

b5»:2 2 0+un2/a; 
1^1 ! line 
/g! nine 

cyi=ui; 



nx [ 8 ] , nx [ 9 ] ) ; 

nx [9] +8) ; 
else outtextxy (nx [4 ] , nx [ 5 ] , " - z " ) 



case 
case 
case 
case 



outtextxy (nx [0] , nx [1] , "x" ) ; 
outtextxy (nx [0] , nx [ 1] , " -x" ) ; 
outtextxy (nx [0] , nx [1] , "y" ) ; 
outtextxy (nx [0] , nx [ 1 ] , " -y" ) ; 



outtextxy (nx [8] - 8 , nx [9] , "y " ) ; breaJc 

outtextxy (nx [8] -8 , nx [9] , " -y" ) ; break 

outtextxy (nx [8] -8 , nx [9] , " -x" ) ; break 

outtextxy (nx [8] -8 , nx [9] , "x" ) ; break 



c=20+ (r_HI-vn3) /a; 
(b, c, 2 2 0+un2/a, 2 0+r_HI/a) 
(b,c,nx[8] ,nx[7] ) ; 
CU2=U2; CVl 



line 

setlinestyle (SOLID_LINE 
Vl; CV2=v2; CV3 



(b,c,220,20+ (r_HI+vn2-vn3) /a) 
0,THICK_WIDTH) ; 
V3 ; 



AP [1] =du; AP [2] =unl ; 
CFl=vnl; CF2=vn2; 
r_DIMl=ml ; r_DIM2=m2 ; 
return true; 
} 



AP [3] =un2 ; 
CF3=vn3 ; 



* 

* Find cube sign witli respect to the current surface level. 

* Returns: 0-equal signsof the cube vertices 

* 1-different signs 
* 

bool RayTracer :: CUBESIGN ( int al, int a2, int a3, int a4 , int a5, int a6 , int a7, int a8) 
{ 

if ( 

( (al>r_LEV) && (a2>r_LEV) && (a3>r_LEV) &&(a4>r_LEV) && 

(a5>r_LEV) && (a6>r_LEV) && (a7>r_LEV) && (a8>r_LEV) ) | | 

( (al<r_LEV) (a2<r_LEV) (a3<r_LEV) &&(a4<r_LEV) && 

(a5<r LEV)&&(a6<r LEV)&&(a7<r LEV)&&{a8<r LEV))) return false; 
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else return true; 




* 

* MOVING RAY, JUMPING FROM ONE EDGE TO ANOTHER, 

* AND SEEKING FOR ROOT, IF IT EXISTS. 

* RETURNS: DEPTH>=0 - BODY'S FOUND. 

* -1 - BODY WASN'T FOUND 
* 

double RayTracer :: JUMP (double t) 

{ 

int m, k, kl , i , il , f in, h, sp [4 ] ; 

long pf h, qf h, pd, qd; 

long dt=0; 

double d,f,fh,a,b; 

kl = 0; 

/* LET'S JUMP : */ 

jump: i=TOP[ll ; k=T0P[2] ; m=T0P[3] ; 

if (CUBESIGN{F{i , k,m) ,F{i,k+l,m) ,F(i,k,m+l) ,F(i,k+l,m+l) ,F(i+l,k,m) , 
F(i+l,k+l,m) ,F(i+l,k,m+l) ,F(i+l,k+l,m+l) )==0) 

{ 

/* JUMP'S STEP: */ 

h= min( min(P[l] ,P[2] ) ,PE31 ) ; 

fOTH(il = l;il<4;il + +) { 
i'K(h = = P[il] ) { if (P[il} = = -IL[il] ) NX[il]"; 

else P [il] =-IL[il] ; 

yl if (NX [il] <=0) return (-1); 

■Jj TOP [il] =NX [il] -1; IED[il]=il; 

^se { if (P [il] = = -IL [il] ) { if(NX[il]<l) return (-1) ; 

a| NX[il]--; 

P[il]-=ll ; IED[il]=a; TOP [ i 1 ] =NX [ i 1 ] ; 

} 

Li, } /* next il */ 

J=H1 = 0 ; 

/* end of going trougJi cube with equal signs of tops */ 
rff{kl!=0) { pd=pfh; qd=qfh; } 

yise { EDGEO ; pd=PE; qd = QE; if(pd= = 0} return ( t+dt); } . 

fin=0 ; 

/* JUMP'S STEP: */ 

h= min( min(P[l] ,P[2] ) ,P[3] ) ; 

f or (il=l ; il<4 ; il++) { 
sp[il] =P[il] ; 
if(h==P[il]) { if (P[il] ==-lL[il] ) NX[il]--; 
else P[il] =-IL[il] ; 

if (NX[il] <=0) fin=l; 
TOP[il] =NX[il] -1; IED[il] =il; 

} 

else { if (P [il] ==-IL [il] ) { if(NX[il]<l) return (-1); 

NX [il] - - ; 

} 

PEil]-=li ; IED[il]=0 ; TOP [ i 1 ] =NX [ i 1 ] ; sp [ i 1 ] + = P [ i 1 ] ; 
} 

} /* next il */ 
EDGEO; pfh=PE; qfh^QE; /* pfh/qfh = PE/QE */ 

if( ( (pfh>0) &&(pd<0) ) I I ( (pfli<0) &&(pd>0) ) ) { 

f =FUNC (sp [1] , sp [2] , sp [3] ) ; d= (double) (pd) /qd ; fh= (double) (pfh) /qfh 

if{f==fh) return ( t+dt +0 . 5*h*d/ (d- f ) ); 

if(f = = d) return ( t+dt ( f - 0 . 5*f h) / ( f - f h) ); 

a=f/(fh-d); b=d-f; b+ = b; b=fli/b; 

return ( t+dt+ (a+b) *li*d/ ( f h-f ) ); 
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if( pfh= = 0 ) { f = FUNC(sp[l] , §frr2] ,sp(3] ) ; 

if( ( {f> = 0)&6c(pd<0) ) I I { (f< = 0)&&(pd>0) ) ) { 
d= (double) (pd) /qd; return ( t+dt+ { 0 . 5*h*d) / (d-2*f ) ); 
} 

else return ( t+(dt+h) ); 



kl=l ; if(fin==l) return (-1) ; 
} /* end of going trough the cube with different signs of tops */ 



dt+=h; 
goto jump; 



* 

* MOVING RAY, JUMPING FROM ONE EDGE TO ANOTHER, 

* AND SEEKING FOR ROOT, IF IT EXISTS. 

* RETURNS: +1 - BODY'S FOUND. 

* -1 - BODY WASN'T FOUND 
* 

****************************************************** 
irO^ RayTracer: :Q_JUMP() 

irO; m, k, kl , i , il , f in, h; 
iMfq fh,d; 

klTio; 

/\: LET' S Q_JUMP : */ 

qj^mp: i=TOP[l] ; k=TOP[2] ; m=T0P[3] ; 

iQ§CUBESIGN{F(i,k,m) ,F(i,k+l,m) ,F(i,k,m+l) ,F(i,k+l,m+l) ,F(i+l,k,m) , 
qs F (i+1 , k+1 , m) , F ( i+1 , k, m+1) , F ( i+1 , k+1 , m+1 ) ) ==0 ) 

:T 

/hi Q_JUMP'S STEP: */ 

hQ_min( min(P[l] ,P[2] ) ,P[3] ) ; 

f^{il = l;il<4;il + + ) { 

L¥(h==P[il]) { if (P[il]==-IL[il] ) NX[il]--; 

"^J else P [il] =-IL [il] ; 

n if (NX [il] <=0) return (-1); 

Zl TOP[il] =NX[il] -1; IED[il]=il; 

} 

else { if (P[il] ==-IL[il] ) { if(NX[il]<l) return (-1) ; 

NX [ i 1 ] - - ; 

} 

P[il]-=h ; IED[il]=0; TOP [ i 1 ] =NX [ i 1 ] ; 

} 

} /* next il */ 

kl = 0 ; 

} /* end of going trough cube with equal signs of tops */ 

else 
{ 

if(kl!=0) d=fh; else { EDGE ( ) ; d=PE; ) 
fin=0 ; 

/* Q_JUMP'S STEP: */ 

h= min( min(P [1] , P [2] ) , P [3] ) ; 

for (il=l; il<4 ; il++) ( 
if(h==P[il]) { if (P [il] ==-IL [il] ) NX[il]--; 
else P [il] =-IL [il] ; 

if (NX [il] <=0) f in=l; 
TOP[il] =NX[il] -1; IED[il] =il; 
} 

else { if (P[il] ==-IL[il] ) { if(NX[il]<l) return (-1); 
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NX [ i 1 ] 

} 

P[il]-=h ; IED[il]=0 T^OPfil] =NX[il] 
} 

) /* next il */ 
EDGEO ; fh=PE; 

if ( ( {d> = 0) &&(fh< = 0) ) I I ( (d< = 0) &&(fh> = 0) ) ) return (+1) ; 
kl=l ; if(fin==l) return (-1) ; 
} /* end of going trough the cube with different signs of tops */ 

goto qjump; 



/* 

/* CALCULATES FUNCTION'S VALUE ON THE EDGE : F = PE/QE 

IL12 = IL[1] *IL[2] ;IL13=:IL[1] *IL[3] ; IL23 = IL [ 2 ] * IL [ 3 ] ; */ 
void RayTracer : : EDGE ( ) 

{ 

int i , j , k; 
long z,a,b; 

i=NX[l) ; j=NX[2] ; k=NX[3] ; Z=F(i,j,k) ; 
switch (IED[1] +IED[2] -IED[3) ) { 

case -1: PE=P [1] * (F (i+l , j , k) -z) - (z-r_LEV) *IL [1] ; QE=-IL[1]; break; /* 0 
case -2: PE=P [2] * ( F ( i , j +1 , k) -z ) - ( z-r_LEV) *IL [2] ; QE=-IL[2]; break; /* 1 
case 3: PE = P [3] * (F ( i , j , k+1) -z ) - (z-r_LEV) *IL [3] ; QE=-IL[3]; break; /* 1 
case -3 : 

^^(z-F(i + l, j , k) -F(i, j+l,k) +F{i + 1, j+1, k) ) *P [2] - (F(i + 1, j ,k) -z) *IL [2] ; 
bJ(F(i, j+l,k) -z) *P[2] - (z-r_LEV) *IL[2] ; 

Rg=a*P [1] -b*IL [1] ; QE=IL12; break; /* 0 0 3 */ 

c^=Be 2 : 

a%:(z-F(i+l, j ,k) -F(i, j ,k+l) +F(i+1, j , k+1) ) *P [3] - (F(i+1, j ,k) -z) *IL [3] ; 
BO(F(i, j ,k+l) -z) *P[3] - (z-r_LEV) *IL[3] ; 

P^=a*P [1] -b*IL [1] ; QE=IL13; break; /* 0 2 0 */ 

case 1 : 

ali(z-F(i, j+l,k) - F(i, j ,k+l) +F(i, j+l,k+l) ) *P[3] - (F(i, j+l,k) -2) *IL[3] ; 
^■(F(i,j,k+l)-z)*P[3]- (z-r_LEV) *IL[3] ; 

PE=a*P [2] -b*IL [2] ; QE=IL23; break; /* 1 0 0 */ 

default: PE=z-r LEV; QE=1; break; 

L ~ ) 

return; 



/f; 

/£;CALCULATES FUNCTION VALUE IN THE POINT (x,y,z) 
□ returns- function VALUE 



double RayTracer :: FUNC ( long x, long y, long z) 
{ 

int i , j , k, f , f 1 ; 
long a,b; 

i=NX[l]; j=NX[2]; k=NX[3]; f=F(i,j,k); f 1 = F ( i , j , k+ 1) ; 

a=x* ((f+F(i+l,j+l,k)-F(i+l,j,k)-F(i,j+l,k)) *y+ {F(i+l,j,k)-f) *DL2 ) 

4-DLl* ( (F(i,j+l,k)-f) *y+{f-r_LEV) *DL2 ) ; 
b=x* ((fl + F(i + l,j+l,k+l)-F(i + l,j,k+l)-F(i,j +1, k+1) ) *y+DL2* (F(i + l,j,k+l) 

-f 1) ) +DL1* ( (F(i, j+l,k+l) -f 1) *y+ (f l-r_LEV) *DL2 ) ; 
return ( a*Dl+ (b-a) * (z*D2) ); 



/* */ 

/* INSTALL YOUR POINT ON THE CUBE EDGE {X,Y,Z- DISTANCES) 
RETURNS: IS[p] [q] (IF POINT CAN'T BE INSTALLED, 
FILLS IS [p] [ql =-1 ) 

*/ 

void RayTracer :: INST ( int p, int q, int u, int v) 

{ 

int i ; 

double a , h, e [4 ] ; 
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IS[pl [q] =-1; 




U+=p; V+=q; 

e [1] =CUl*u+CVl*v+CFl; e [2] =CU2*u+CV2*v+CF2; e [3] =CV3*v+CF3; 

h= max ( max (e [1] , e [2] ) , e [3 ] ) ; 

f or ( i=l ; i<4 ; i++) { 
if(h==e[i]) { NX[i] =r_N[i] ; P[i]=-IL(i]; IED[i]=i; TOP E i] =r_N [ i ] - 1 ; } 
else { a=AP [i] +e [i] -h; if{a<0.5) return; 

AA=(long)a; NX [ i ] =AA/ ( - IL [ i ] ) ; P[i] =AA+{long) (NX [ i] ) * IL [ i ] ; 
if(P[i]==0) { if(NX[il==0) { P[i]=l; IED[i]=0; TOP[i]=0; } 
else { P[i]=-IL[i]; IED[i]=i; TOP [ i ] =NX [ i ] - 1 ; } 

} 

else { IED[i]=0; TOP [ i ] =NX [ i ) ; } 
} 

) /* next i */ 
IS [p] Eq] =Q_JUMP (); return ; 



/* 

/*CALCULATE INTENSITY: 
b 



a <-r DIM-> t 



R^RJRN: 

VMi> = r_COLb*BD , IF BODY EXISTS 

O.-l IF BODY WAS NOT FOUND 

If */ 
ifM RayTracer :: INTENS (double a, double b, double c, double d, double t) 

{nj 

double norl,nor2; 
^ if (t<0) return 0; 
■ if (a>=0) 

ps if(c>=0) norl=c-a; 

else norl = 2* ( t-a) ; 

Ej else 

^' if(c> = 0) norl = 2* (c-t) ; 

else norl=0; 



if (d>=0) 
{ 

if(b>=0) nor2=b-d; 
else nor 2= 2* ( t-d) ; 

} 

el se 
( 

if (b>=0) nor2=2* (b-t) ; 
else nor 2=0; 

} 

return ( (int)( B1+B2/ sqrt (norl*norl+nor2*nor2+DOWN) ) ); 



/* 

/♦ESTABLISH SURFACE PRESENCE FILLING IS[] [j ARRAY 

* 

* 

* 
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ij^^K vv, int il, int 12, int 13, in^^V, 

mt j2, int j3, int j4, int j5, int^^O/ 



*/ 

void RayTracer :: CHESS ( int uu| 

int j 1 , "Tht j2, int j3, int j4, int j5, 
int j7, int j8) 

{ 



signed char p,q,pO; 
// Set IS to unindentif led "-2" 
pO=IS [0] [0] ; 

for {p=0;p<r_DIM;p++) { for (q^O ; q< r_DIM; q++ ) IS [p] [q] =-2; } 
IS[0] [0]=pO; 
// Get corners 

INST(0,r_DIMl,uu, vv) ; INST (r_DIMl , 0 , uu , vv) ; INST (r_DIMl , r_DIMl , uu , vv) ; 
// Is DIM small ? 
if (r_DIM<=2) 
{ 

GUR02 ('*Ml,i2,i3,i4,jl,j2,j3,j4,j5,j6,j7,j8,uu,vv) ; 
return ; 

) 

// DIM is >2; do the "chess" work 
p0=IS [0] [0] ; 

if ( pO==IS[0] [r_DIMll && p0== I S [r_DIMl ] [0] && p0== I S [r_DIMl ] [r_DIMl] ) 
{ 

f or (p=0;p<r_DIM;p++) { f or ( q=0 ; q<r_DIM ; q++ ) IS [p] [q]=pO;} 
GUR02 ('*',il,i2,i3,i4,jl,j2,j3,j4,j5,j6,j7,j8,uu,vv) ; 
return ; 

} 

q=0; pO=0; 
while (q<r_DIM) 

{ 

r] f or (p=pO ;p<r_DIM;p+=2) 

rf if { IS [p] [q] ! =-2) continue; 

U-^ else INST (p, q, uu, vv) ; 

5 pO = l - pO ; q + + ; 

} 

-^f f or (p=l ; p<r_DIMl ; p + = 2) 

^3 { 

pi if (IS[p-l] [0]= = IS[p] [1] ScSc IS[p-l] [0]==IS[p + l] [0] ) IS[p] [0]=IS[p-l] [0] ; 

else INST (p , 0 , uu, vv) ; 

^ } 

h-i f or (q=l ;q<r_DIMl ; q+ = 2) 

if (IS [0] [q-1] = = IS [1] [q] ScSc I S [ 0 ] [q- 1 ] = = I S [ 0 ] [q+1 ] ) I S [ 0 ] [q] = I S [ 0 ] [q- 1 ] ; 
else INST ( 0 , q, uu, vv) 

} 

n for (p= (r_DIMl%2) +l;p<r_DIMl;p+=2) 

=^ if (IS[p-l] [r_DIMl] ==IS [p] [r_DIMl-l] && IS[p-l] [r_DIMl] IS [p+1 ] [r_DIMl] ) 

( IS[p] [r_DIMl] =IS [p-1] [r_DIMl] ; } 
else INST (p , r_DIMl , uu, vv) ; 

} 

for (q= (r_DIMl%2) +1 ;q<r_DIMl ;q+=2) 
{ 

if (IS [r_DIMl] [q-1] =: = IS [r__DIMl-l] [q] &£c IS [r_DIMl] [q- 1] = = IS [r_DIMl ] [q+1] ) 
{ IS [r_DIMl] [q] =IS [r_DIMl] [q-1] ; } 
else INST (r_DIMl , q, uu , vv) ; 

) 

q=l; pO=l; 
while (q<r_DIMl) 
{ 

f or (p=pO+l ;p<r_DIMl ; p+=2) 

{ 

if (IS[p] [q] !=-2) continue; 

if( IS [p-1] [q] =: = IS [p+1] [q] ScSc IS [p-1] [q] == IS [p] [q- 1] && 

IS [p-1] [q]= = IS[p] [q+1] ) IS[p] [q]=IS[p-l] [q] ; 

else INST (p , q, uu, vv) ; 

) 

pO=l-pO; q++; 

} 

GUR02 ( ' * ' , il , 12 , 13 , i4 , j 1 , j 2 , j 3 , j4 , j 5 , j 6 , j 7, j 8 , uu, vv) ; return ; 
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/* 

/* FILLS SQUARE WITH GUR02 INTTOSITY: J1< - r_DIM- > J2 

MASK: -LIGHT 

-AS IN IS' CODE J8 13 14 J3 



J7 



II 

( ix, iy) 



12 



J4 



J6 



RETURNS PICTURE 



J5 



'I 



void RayTracer : :GUR02 (char mask, long il, long i2, long i3, long i4 , 

long jl, long j2, long j3, long j4, long j5, 
long j6, long j7, long j8, int ix, int iy) 



int X , y , XX , yy , choix=0 ; 

long al2,a21,a20,a02,all,a01 ,alO,aOO,pas,pasy, in, debut , kpas, Ipas; 
long kdebut , Idebut , Ipasy ; 
if (mask== ' * ' ) { 

if(il>0) choix=l ; if(i2>0) choix+=10 

if(i3>0) choix+=100; if(i4>0) choix+=1000; 



switch (choix) 


{ 










case 


1 : i2 = 


il 




i3 = 


=il ; i4=il 






if (jl<= 


0) 


jl = 


il 


if ( j2<=:0) 


j2=il; 




if (j4< = 


0) 


j4 = 


il 


if (j5< = 0) 


j5=il; 




if (j7< = 


0) 


j7 = 


il 


if (j8< = 0) 


j8=il; 




break; 












cf«|se 


10: il= 


i2 




i3 = 


=i2 ; i4=i2 ; 




if ( j 1< = 


0) 


jl = 


i2 


if ( j2< = 0) 


j2=i2; 




if (j4< = 


0) 


j4 = 


i2 


if (j5< = 0) 


j5=i2; 




if (j7< = 


0) 


j7 = 


i2 


• if(j8<=0) 


j 8 = i2 ; 




break; 












case 


11: i3= 


il 




i4 = 


= i2 ; 






• if(jl< = 


0) 


jl = 


il 


• if(j2<=0) 


j2=i2; 




if (j4< = 


0) 


j4 = 


min ( il , i2 ) ; 


if ( j5< 




if (j7< = 


0) 


j7 = 


min ( i 1 , i2 ) ; 


if (j 




break ; 












esse 


100: il= 


i3 




i2 = 


=i3 ; i4=i3 






if (jl< = 


0) 


jl = 


i3 


if ( j 2< = 0) 


j 2 = i3 ; 




if (j4< = 


0) 


j4 = 


i3 


• if{j5<=0) 


j5=i3; 




if (j7< = 


0) 


j7 = 


i3 


• if{j8<=0) 


j8=i3; 


\ 3 


break ; 












(S^se 


101: i2= 


il 




i4 = 


= i3 ; 




■a. s 

"r. 


if (jl< = 


0) 


jl = 


min(il, i3) ; 


if ( j2< 




if (j4< = 


0) 


j4 = 


il 


- if(j5<=0) 


j5=il; 




if (j7< = 


0) 


j7 = 


il 


• if(j8< = 0) 


j8=i3; 




break; 












case 


110: il= 


(i2+i3)/2 ; i4=il ; 






if (jl< = 


0) 


jl = 


i3 


- if(j2<=0) 


j2=i2; 




if (j4< = 


0) 


j4 = 


i2 


• if(j5<=0) 


j5=i2; 




if (j7< = 


0) 


j7 = 


i2 


• if(j8<=0) 


j8=i3; 




break; 












case 


111: i4= 




min ( i2 , i3 ) ; 






if (jl< = 


oy 


jl = 


min ( il , i3 ) ; 


if (j2< 




if ( j4< = 


0) 


j4 = 


min ( il , i2 ) ; 


if (j5< 




if (j7< = 


0) 


j7 = 


min ( il , i2 ) ; 


if (j8< 



if (j3 
if (j6 



if (j3 
if (j6 



if (j3 
= 0) j5 
5< = 0) 



if (j3 
if (j6 



= 0) j2 
if (j6 



if (j3 
if (j6 



<=0) j3=il; 
<=0) j6=il; 



<=0) j3=i2; 
<=0) j6=i2; 



<=0) j3=i2; 

=i2; if(j6<=0) j6=il; 

j 8 = il ; 



<=0) j3=i3; 
<=0) j6=i3; 



=13; if(j3<=0) j3=i3; 
<=0) j6= min(il,i3); 



<=0) j3=i3; 
<=0) j6=i3; 



= 0} 
= 0} 
= 0) 



j2 
j8 



= 12; 
= 12; 
= 13; 



if(j3<=0) j3=i3; 
if(j6<=0) j6= min(il,i3) 



break; 
1000: il=i4 



if (jl< 


= 0) 


j 1 = 14 ; 


if ( j2< 


= 0) 


j2 = 


14; if{j3<=0) 


j3=i4 ; 




if (j4< 


= 0) 


j4 = i4 ; 


if (j5< 


= 0) 


j5 = 


14; if(j6<=0) 


j6=i4 ; 




if (j7< 


= 0) 


j 7 = 14 ; 


if ( j8< 


= 0) 


j8 = 


14 ; 






break ; 


















1001: 12 


= (i 


1+14) /2 


13 = 


12 










if (jl< 


= 0) 


jl=il; 


if ( j2< 


= 0) 


' j2 = 


14; if(j3<=0) 


j3=i4 ; 




if ( j4< 


= 0) 


j4=il; 


if (j5< 


= 0) 


j5 = 


14; if(j6<=0) 


j 6 = 1 1 ; 




if (j7< 


= 0) 


j7=il; 


if ( j8< 


= 0) 


j8 = 


14 ; 






break; 


















1010: il 


-12 


13 


= 14 ; 












if (jl< 


= 0) 


j 1 = 14 ; 


if ( j2< 


= 0) 


j2 = 


min (12,14) ; 


if (j3< 


= 0) 


if ( j4< 


= 0) 


j4=i2; 


if ( j5< 


= 0) 


j5 = 


min (12,14) ; 


if (j6< 


= 0) 


if (j7< 


= 0) 


j7=i2; 


if ( j8< 


= 0) 


j8 = 


14 ; 







break; 
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jl 
j7 



case 1011: i3= i 

if ( jl<=0) 
if ( j4< = 0) 
if ( j7<-0) 
break; 

case 1100: il=i3 ; 

if(jl<=0) jl: 

if(j4< = 0) j4: 
if(j7< = 0) jl 
break; 

case 1101: i2- min 

if(jl< = 0) jl: 
if(j4< = 0) j4: 
if(j7< = 0) j7: 
break; 

case 1110: il= min 

if ( jl< = 0) 
if ( j4< = 0) 
if ( j7<=0) 
break; 

default : return 
} /* end 



(il,i4) 

= il; if(j^V)) 

- min (il , i2) ; 

= min ( i 1 , i2 ) ; 



m 



i2=i4 ; 
=i3; if(j2<=0) 
=i4; if(j5<=0) 
=:i3; if(j8< = 0) 

(il,i4) ; 

= min ( il , i3 ) ; 

=il; if(j5<30) 
3il; if(j8<=0) 

(i2,i3) ; 
=i3; if(j2<=0) 
=i2; if(j5<=0) 
=i2; if(j8<=0) 



j2= min(i2,i4); if(j3<=0) j3 

if(j5<=0) j5= min(i2,i4); if(3T<=0) j6=il; 

if(j8<=0) j8=i4; 



j2=i4; if(j3<=0) j3= min(i3,i4) 

j5=i4; if(j6<=0) j6=i3; 
j 8= min ( i3 , i4 ) ; 



if(j2<=0) j2=i4; if(j3<=0) j3= min(i3,i4); 

j5=i4; if(j6<=0) j6= min(il,i3); 

j 8- min ( i3 , i4 ) ; 



j 2= min (i2 ,i4); if(j3< = 0) j 3= min ( i3 , i4 ) ; 

j5^ min(i2,i4); if{j6<=0) j6=i3; 

j 8= min ( i3 , i4 ) ; 



of switch */ 



aOO=4*il*r_DIM3 ; alO= (-3*il+5*i2-j7-j4) *r_DIM2 ; a01= ( -3*il+5*i3 - j 1 - j 6 ) *r_DIM2 ; 
a0 2=(-il-i3+jl+j6) *r_DIM ; a2 0=(-il-i2+j4+j7) *r_DIM ; 
a21=il+i2-i3-i4+j3-j4-j7+j8 ; al2=il-i2+i3-i4-jl+j2+j5-j6 ; 
all=(2*il-4*i2-4*i3+6*i4+jl-j2-j3+j4-j5+j6+j7-j8) *r_DIM ; 
pas=a02+a01 ; kpas=2*al2 ; Ipas=a21+al2+all ; 
debut=a00 ; kdebut=2*a20 ; Idebut=al0+a20 ; 
l^sy=2* (al2 + a02) ; 

ftSt {x=0 , xx=ix; x<r_DIM; X++ , XX++) { 
p^"y=P^s ; in=debut ; 

'Jlfor (y-0 ,yy=r_HI-iy;y<r_DIM;y++ ,yy-- ) { 

Si if (IS[x] [y] >0) 

.A { 

"^f int pix = in/BD; 

r_Screen->SetPixel (xx,yy, pix) ; 

nj J 

in+=pasy ; 

f pasy+=lpasy; } 
p|FS + = kpas*x + lpas ; 
df|ut+=kdebut*x+ldebut ; 

return; } /* end of mask= ' * ' */ 

egse { 

J|(jl<^0) jl^ min(il,i3); if(j2<=0) j2= min(i2,i4); if(j3<=0) j3= min(i3,i4) 

^f(j4<=0) j4= min(il,i2); if(j5<=0) j5= min(i2,i4); if(j6<=0) j6= min(i3,il) 

if ( j 7< = 0) j 7= min {il,i2); if(j8< = 0) j 8= min( i3 , i4) ; 

a00 = 4*il*r_DIM3 ; al 0= { - 3 * il + 5* i2 - j 7 - j 4 ) *r_DIM2 ; a01= ( -3 *il + 5*i3 - j 1 - j 6 ) *r_DIM2 ; 

a0 2={-il-i3+jl+j6) *r_DIM ; a2 0=(-il-i2+j4+j7) *r_DIM ; 

a21 = il + i2-i3-i4 + j3- j4- j 7 + j 8 ; al 2 = i 1 - i 2 + i 3 - i4 - j 1 + j 2 + j 5 - j 6 ; 

all={2*il-4*i2-4*i3+6*i4+jl-j2-j3+j4-j5+j6+j7-j8) *r_DIM ; 

pas=a02+a01 ; kpas=2*al2 ; Ipas=a21+al2+all ; 

debut=a00 ; kdebut=2*a20 ; Idebut=al0+a20 ; 

lpasy=2* (al2+a02) ; 

int imax=4*r_DIM3* max ( max ( il , i2) , max ( i3 , i4 ) ) /BD; 

int imin=4*r_DIM3* min ( min ( il , i2) , min ( i3 , i4 ) ) /BD; 

for {x=0 , xx=ix ; x<r_DIM; X++ , XX++) ( 
pasy=pas ; in=debut ; 

for (y=0 ,yy=r_HI -iy ;y<r_DIM;y++ ,yy- - ) { 
int pix=in/BD; 

if(pix>imax) pix=imax; else if(pix<imin) pix=imin; 
r_Screen- >SetPixel (xx , yy , pix) ; 

in+=pasy ; 

pasy+=lpasy; } 
pas+=kpas*x+lpas ; 
debut+=kdebut *x+ldebut ; 

) 



return ; 

} /* end of case mask != */ 
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* 

* Set voxel scaling 
* 

**************************************************** 

bool RayTracer :: SetVolumeScales (double sx, double sy, double sz) 

{ 

double smin= min ( sx , min ( sy , sz ) ) ; 

double smax= max ( sx, max ( sy , sz ) ) ; 

if ( smin<=0) 

{ 

sprintf ( r_error , "Non-positive volume scale") ; 
return false ; 

} 

const int maxscale=64; 
double coef =max9cale/smax ; 

r_ALscale [1 ] = max { 1 , ( int ) min { maxscale , sx*coef +0 . 5 ) ) 

r_ALscale [2] = max ( 1 , (int) min (max scale , sy*coef+0. 5) ) 

r_ALscale [3 ] = max ( 1 , ( int ) min (max scale , sz*coef +0 . 5 ) ) 

return true; 

} 

/ lirK* ******************************************************************* 

* ~Z 

* 'it Set observer's eye position 

* y = 

* *s^* ******************************************************************* 
vaisd RayTracer :: SetEyePosition (double x, double y, double z) 

r_Leye [1] =x; 
ijj r_Leye [2] ~y ; 
f%= r_Leye [3] =z ; 

/i********************************************************************* 

* hzh 

*f=% Set observer's eye position, where 

*2t deg_hor and deg_ver are angles in radians 

* : -J 

* ******************************************************************** 

vp^id RayTracer :: SetEyePositionOnSphere (double deg_hor, double deg_ver) 

'-^ double c = cos (deg_ver ) ; 

SetEyePosition (c*cos (deg_hor) , c* sin ( deg_hor ) , sin ( deg_ver ) ) ; 

} 



/ 



********************************************************************** 



* Set tracing granularity 
* 

*********************************************************************** 

void RayTracer :: SetGranularity ( int gr) 

{ 

r_DIM=gr; 

if (r_DIM>16) r_DIM=16 ; 

else if(r_DIM<2) r_DIM=2; 

} 

/********************************************************************** 
* 

* Set isosurface level to be visualized 
* 

*********************************************************************** 
void RayTracer :: SetSurfaceLevel ( int lev) { r__LEV=lev; } 

/********************************************************************** 
* 

* Set max and min body color 
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void RayTracer :: SetBodyColor ( mt cmin, int cmax) 

{ 

cmin= max(cmin,0) ; 

if (cmin>cmax) 



} 



int t=cmin; cmin=cmax; cmax=t; 

} 

r_COLb=cmin; // body minimum 

r_COLf= max ( 1 , cmax- cmin) ; // body range: r_COLf =( foreground- r_COLb) 



* 

* Return VOXEL value 

***********************************************************************/ 
int RayTracer :: F ( int x, int y, int z) 

{ 

/* 

switch (r_RotationCode) 
{ 

return F_XpYpZm ( x , y , z ) 

return F_XpYmZp ( x , y , z ) 

return F_XpYmZm ( x , y , z ) 

return F_XmYpZp ( x , y , z ) 

return F_XmYpZm ( x , y , z ) 

return F_XmYmZp ( x , y , z ) 

return F_XmYmZm ( x , y , z ) 

return r_Volume - >GetVoxel (x , y, z ); //return F_XpYpZp (x , y , z ) ; 



case 001 
case 010 
case Oil 
case 100 
ca^je 101 
cige 110 
c^e 111 
default : 

return ( this - >* F_XYZ) (x , y , z ) ; 

I ^* ************************************************ 

* = 

* La.. 
* ' 



Functions to obtain voxel value for 
different volume orientation. 
Array r_N[] must be already modified 



*'f4 
ihH 

\A 

i?|t 
{C3 
int 

{ 

int 
{ 

int 

{ 

int 
{ 

int 
{ 

int 



************ 
RayTracer : : 
return r_Vo 
RayTracer : : 
return r_Vo 
RayTracer : : 
return r_Vo 
RayTracer : : 
return r_Vo 
RayTracer : : 
return r_Vo 
RayTracer : : 
return r_Vo 
RayTracer : : 
return r_Vo 
RayTracer : : 
return r Vo 



************** 


* * 


* * * 


* * * * 


* * * 


****** 


*********** 


F_XpYpZp(int X 




int 


y. 


int 


z) 




lume- >GetVoxel 


(X 




z) ; 








F_XmYpZp(int x 




int 


y. 


int 


z) 




lume- >GetVoxel 


(y 


/r_ 


N[2] 


-X, 


z) ; 




F_XpYmZp(int x 




int 


y. 


int 


z) 




lume- >GetVoxel 


(r 


_N[ 


1] -y 


.X, 


z) ; 




F_XmYmZp(int x 




int 


y* 


int 


z) 




lume - > Get Voxel 


(r 


_N[ 


1] -X 


' ^_ 


N[2] -y 


,Z) ; 


F_XpYpZm(int x 




int 


y* 


int 


z) 




lume - >GetVoxel 


(y 


/ X , 


r_N [ 


3] - 


z) ; 




F_XmYpZm(int x 


t 


int 


y. 


int 


z) 




lume- >GetVoxel 


(r 


_N[ 


1] -X 


.y. 


r N[3] 


-Z) ; 


F_XpYmZm(int x 




int 


y , 


int 


z) 




lume- >GetVoxel 


(x 


, r_ 


N[2] 


-y , 


r N[3] 


-2) ; 


F_XmYmZm(int x 




int 




int 


z) 




lume ->Get Voxel 


(r 


_N[ 


1] -y 


' ^_ 


N[2] -X 


,r_N[3] -z) ; 
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3]^^^ the Volume class. 

f^ii/ii/iifiiiniiiim/fiiii/iitii^T// 



II Volume, cpp: implementat ioi^^^ the Volume class. 
// 

/////////////////////////////777/////////////////////////////////7T7// 

#include " Volume. h" 



////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
Volume : : Volume ( ) 

{ 

m_Fmax= -3 000 0 ; m_Fmin=3 0000 ; 

} 

Volume : : -Volume ( ) 

{ 
} 

/******************************************************************** 

■k 

* Functions returning volume dimensions - OVERRIDE (virtual) 
* 

********************************************************************/ 
int Volume : rGetXSize ( ) { return 40; } 
int Volume : :GetYSize ( ) ( return 40; } 
int Volume : :GetZSize ( ) { return 40 



********************************************************** 

*ui 

*~: Function returning voxel - OVERRIDE (virtual) 

*yi 

in.^ Volume : :GetVoxel (int int y, int z) 
{-^ 

"^f return ((x-20)*(x-20) + (y-20)*(y-20) + {z-20)*(z-20)-500)/3; 
''M //return (x+y + z) ; 

m 

*r% Find min and max voxel values 

:ii ..../ 

void Volume :: FindMinMax ( ) 

m 

^z, if (m_Fmax>m_Fmin) return; // already found 
int i , j , k , vox ; 

m_Fmax=m_Fmin=GetVoxel (0 , 0 , 0) ; 
for(i=0; i<GetXSize 0 ; i++) 
{ 

for(j=0; j<GetYSize ( ) ; 
{ 

for(k=0; k<GetZSize() ; k++) 
{ 

vox=GetVoxel ( i , j , k) ; 

if ( vox>m_Fmax) m_Fmax=vox; 

else if ( vox<m_Fmin) m_Fmin=vox; 

} 

} 

} 

if (m Fmax<=m Fmin) m Fmax=m_Fmin+l ; 



* 

* Return min and max voxel values 
* 

****************************************************** 
void Volume : :GetMinMax ( int &fmin, int &fmax) 

{ 

FindMinMax ( ) ; 
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fmin=m Fmin: fmax=m Fn 
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// Volume. h: interface for t 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



l^/ 



lume class. 

/ 1 1 1 1 1 1 / 1 1 1 1 n 1 1 1 / 1 1 n 1 1 1 1 1 / 1 1 1 1 



#if ! defined (AFX_VOLUME_H IFBBBEl 1_9D18_1 1D3_814 0_0 00 000 0 00 000 INCLUDED_) 

#def ine AFX_VOLUME_H 1FBBBE11_9D18_11D3_814 0_000000 00 0000 INCLUDED_ 

nit _MSC_VER > 1000 
tipragma once 

**endif // _MSC_VER > 1000 
class Volume 

{ 

public : 

void GetMinMax ( intSc fmin, 
virtual int GetVoxel(int 
virtual int GetZSizeO 
virtual int GetYSizeO 
virtual int GetXSizeO 
Volume ( ) ; 

virtual -Volume () ; 



int& fmax) ; 
X, int Y, int z) ; 



private : 

void FindMinMax ( ) ; 
int m_Fmin, m_Fmax; 

); 

ttendif // !defined(AFX VOLUME H IFBBBEll 9D18 11D3 8140 000000000000 INCLUDED 



7^i^/////////////////////////////////^i^ 



// pixels. h 

1 1 1 1 1 1 1 1 1 1 1 1 1 / / 1 1 1/ 1 1 1 1 1 1 f n mwi 1 1 1 i 1 1 1 1 1 n 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 n 



#if ! defined (AFX_PIXELS_H INCLUDED^) 

tdefine AFX_PIXELS_H INCLUDED^ 

#if _MSC_VER > 1000 
#pragina once 

#endif // _MSC_VER > 1000 
#include " . . \dicom.hpp" 

#include " . . \cctypes .h" // Added by ClassView 

1 1 1 1 1 1 1 1 / 1 1 1 1 n 1 1 i 1 1 1 11 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 li 1 1 1 
II 

II RawPixelDecoder class. 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

class RawPixelDecoder 

{ 

public: 

bool Load_Pixels (FILE* infile) ; 

bool Load_Pixels (BYTE* data, UINT32 data_size) ; 

long GetPixelMinimum( ) { return nuPixMin; }; 

long GetPixelMaximum( ) { return m_PixMax; }; 

inline long GetBuf feredPixel Sample (UINT3 2 n) ; 
inline long GetBuf feredPixel (UINT3 2 n) ; 

RawPixelDecoder (UINT3 2 npixels, int bits_alloc, 

int bits_stored, int high_bit, 

int samples_^er_pixel , int endian=l); 

virtual -RawPixelDecoder () ; 

private : 

bool in_ReleaseBuf f erMemory; 

y1 BYTE* m_j)Buffer; 

int m_SamplesPerPixel ; 

^\ int m_PixShift; 

int m_LitEndian; 

Jl int m_Bytes Per Pixel ; 

long ni_PixMin, m_PixMax; 

UINT32 m_nSamples; 

nJ UINT32 nuPixMask; 

1" UINT32 in_nBytes; 

UINT32 m_nPixels; 



1=1: 

C5 



void Digest ( ) ; 
void ReleaseBuf fer ( } ; 
ilJ void Initialize (UINT32 npixels, int bits_alloc, 
%J int bits_stored, int high_bit, 

^! int sainples_per_pixel, int endian=l) ; 

bool SetPixelMask{int bits_al located, 
CJ int bits_stored, int high_bit) ; 

bool ValidO; 

); 

/************************************************************** 
* 

* Get saitple and pixel #n in little endian 
* 

********** * * ****************************************************************/ 

inline long RawPixelDecoder :: GetBuf feredPixel Sample (UINT3 2 n) 

{ 

if (n>=m_nSamples) n=m^nSaii^)les-l; // safe 

n *= m_BytesPerPixel ; // map to array byte address 

long p=m_pBuf f er [n] ; 

switch (m_BytesPerPixel ) 

{ 

case 2 : 

p=p I ( ( {UINT32)mjBuf fer[n+l] )«8 ); 
break; 
case 3 : 

p=p j ( ( (UINT32)m_pBuffer [n+1] )«8 ) ; 
p=p I ( ( (UINT32)m_pBuffer [n+2] )«16 ) ; 
break; 
case 4: 

p=p ( ( (UIlSPr32)m_pBuf fer[n+l] )«8 ); 
p=p ( ( (UINT32)m_pBuf fer [n+2] )«16 ); 
p=p { ( {UINT32)nL_pBuf fer [n+3] )«24 ); 
break; 



1 



} 

return (p>>nuPixShif t) &mj 

}; 

inline long RawPixelDecoder : :GetBuf f eredPixel (UINT32 n) 
{ 

if (in_SamplesPerPixel==l) 
{ 

return GetBuf f eredPixelSair^le (n) ; 

} 

else 
{ 

n *= m_Sampl es Per Pixel ; 

long p=GetBuf f eredPixelSample (n) ; 

for(int i=l; i<ituSamples Per Pixel; i++) 

{ 

n++; 

p += GetBuff eredPixelSample (n) ; 

) 

p /= m_SamplesPerPixel ; 
return p; 

) 

} 



1 1 1 / 1 1 1 1 1 n u 1 1 f n 1 1 1 1 u 1 1 1 1 1 1 H 1 1 1 1 / n I It 1 1 1 It I n It t i 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 
It 

It RawPixel Encoder class. 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 H 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 

class RawPixel Encoder 

{ 

public: 

U void Trans fer Da taToVR(VR *vr) ; 

bool SetSize(UINT32 size) ; 

ZX UINT32 AddData(BYTE* buf, UINT32 buf_size, 

^= UINT32 f liprawbytes=0) ; 

'■Ji RawPixel Encoder ( ) ; 

virtual -RawPixelEncoder ( ) ; 

private : 

Z\ bool m_ReleaseBuf f erMemory; 
nj BYTE* rtLpBuffer; 
_ UINT32 m_Buf ferPtr; 
^. UINT32 m_Size; 

void ReleaseBuf f er ( ) ; 
fWidi f / / ! de f ined ( AFX_PIXELS_H 2 A3 6 1 EE3_CEAB_1 1D3_AF4 8_0 0000000000 0 INCLUDED. ) 
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// pixels. cpp 
// 

1 1 1 1 1 1 1 1 1 1 n ii 1 1 1 1 1 ii 1 1 u 1 1 1 

tinclude "pixels. h" 



i^ri n u I n I i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 i I f^¥i 



1 1 1 1 1 1 1 1 1 1 1 1 Ii I n I i i 1 1 n I f N N / 1 u 1 1 1 n I m I n 1 1 ii n 11 1 1 1 1 i I i t ii i / 1 / ii 

II Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
RawPixelDecoder : :RawPixelDecoder (UINT32 npixels, int bits_alloc, 

int bits_stored, int high_bit, 

int samples_per_pixel, int endian/*=l*/) 

{ 

m_By tesPerPixel=0 ; 
in_LitEndian=l ; 

m_nBy tes =m_nPixe 1 s =m_nSampl es =in_Sanpl es Per Pixe 1 = 0 ; 
in_pBuf fer=NULL; in^ReleaseBuf ferMeinory= false ; 
m_PixMask=m_PixShif t=0 ; 

Initialize ( npixels, bits_alloc, bits_stored, high_bit, 
samples_per_pixel , endian ) ; 

} 

RawPixelDecoder: : -RawPixelDecoder 0 { ReleaseBuf f er ( ) ; } 

/************************************************************* 
* 

* Initialize buffer parameters 

****************************************************************************/ 

void RawPixelDecoder :: Initialize (UINT32 npixels, int bits_alloc, 

int bits_stored, int high_bit, 
int sainples_per_pixel , int endian/ *=1*/) 

m_ReleaseBufferMeinory= false ; 
^5 rtunPixels=npixels; // number of pixels to read; one pixel may have several samples 

m.BytesPerPixel=(bits_alloc+7) /8; // nvimber of bytes per pixel 

m_SamplesPerPixel=san^les_per_pixel; // samples per pixel 
dj m_nSamples=m_nPixels*m_Samples Per Pixel ; 

m_LitEndian=endian; // endian type 

m_nBytes=m_nSamples*m_BytesPerPixel; // total number of bytes 
^iJ if (!SetPixelMask(bits_alloc, bits_stored, high_bit) ) m_BytesPerPixel=0 ; 

*********************************************************************** * 

*_ 

*r . Validate current parameter values 

^- 

*f*> *************************************************************************/ 
Iro'pl RawPixelDecoder :: Valid () 

'"^J if( m^BytesPerPixel<=0 11 m_BytesPerPixel>4 || 

pi nuSamplesPerPixel<=0 | | m_SamplesPerPixel>4 | | 

5: m„nPixels<=4 | | m_nSamples<=4 | | m_nBytes<=4) 

return false; 

) 

else return true; 

} 

/*************************************************************************** 
* 

* Compute pixel mask parameters 
* 

****************************************************************************/ 

bool RawPixelDecoder : :SetPixelMask( int bits_allocated, int bits_stored, int high_bit) 

if( bits_allocated<bits_stored || bits_allocated<high_bit || 
bits_allocated<=0 | | bits„stored<=:0 ) return false; 

m^PixMask=l; 

for (int i=l; i<bits„stored; i++) 
{ 

m^PixMask = (nv_PixMask«l) +1; 

} 

m^PixShif t=high_bit-bits_stored+l; 
return true; 

} 

/*************************************************************************** 
* 

* Load pixel data, in bytes, from the input file or buffer 
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*************************** ^^^^M ****** i 
bool RawPixe 1 Decoder : :Load_Pi^Ss (FILE * infile) 
{ 

ifdValidO) return false; 
ReleaseBuf f er { ) ; 
try 
{ 

rtL_pBuf fer=new ByTE[m„nBytes] ; // pixel buffer 
if ( !in_pBuf f er) return false; // out of memory 

} 

catch (...) { return false; } 
memset (m_pBuffer, 0,irL_nBytes) ; 
m^ReleaseBuf f erMemory=true ; 

if (freaddiupBuf fer, l,m_nBytes, infile) < m_nBytes) return false; 
Digest 0 ; 
return true; 

) 

bool RawPixelDecoder : :Load_Pixels (BYTE *data, UINT32 data_size) 
{ 

if(!Valid()) return false; 
ReleaseBuf fer( ) ; 

if (m_nBytes>data„size) return false; // incomplete data 
ir\__Re 1 eas e Bu f f e rMemory = f a 1 s e ; 
mjBuf f er=data ; 
Digest ( ) ; 
return true; 

} 




*Ji Process loaded pixel bytes. Return pixel range 

ifk'-i-k**ir*-k*******************************************************************/ 

v^d RawPixelDecoder :: Digest {) 
Z\ UINT32 i; 

ly 

= //If not little endian - go swap bytes 
if ( !m_LitEndian) 

L,] : :SwitchEndian(m_pBuf fer, m^nBytes, m_BytesPerPixel) ; 

nJ ^ 

"^"1 // Find min and max pixel SAMPLE values 
long p; 

z: m^PixMin=GetBuf feredPixel Sample (0) ; 
LJ m_PixMax=m_PixMin+l ; 

for(i=l; i<m_nSanples; i++) 

( 

p=GetBuf feredPixelSample (i) ; 
if (p>m_PixMax) m^PixMax=p; 
else if (p<m^PixMin) m^PixMin=p; 

} 

} 

/*************************************************************************** 
* 

* Release allocated buffer memory 
* 

****************************************************************************/ 

void RawPixelDecoder : : ReleaseBuf fer ( ) 

{ 

if (nuReleaseBuf f erMemory) 
{ 

if (m_pBuf f er) 
{ 

delete [] m_pBuffer; 
mjBuf f er=NULL ; 

} 

m_Re 1 e as eBu f f erMemo ry = f a 1 s e ; 

) 

) 
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int nXpos = 0; 
int nYposl = nTop + 
int nYpo82 = nBottom -^2 ; 

for (int i = 0; i < nNumBands; i++) 
{ 

nXpos = nAdjust + (i * IND_BAND_WIDTH) ; 

pDC->SelectObject (&m_penColorDarker ) ; 

pDC- >MoveTo (nXpos + 1, nTop) ; 

pDC- >LineTo (nXpos + nHeight, nBottom); 

pDC->SelectObject (&m_penColorDark.) ; 
pDC- >MoveTo (nXpos + 2, nTop) ; 
pDC->LineTo (nXpos + nHeight + 1, nBottom); 
pDC- >MoveTo (nXpos + 10, nTop); 
pDC->LineTo (nXpos + nHeight + 9, nBottom); 

pDC- >SelectObj ect (£cm_penColor ) ; 

pDC- >MoveTo (nXpos + 3, nTop); 

pDC->LineTo (nXpos + nHeight + 2, nBottom); 

pDC- >MoveTo (nXpos + 9, nTop); 

pDC->LineTo (nXpos + nHeight + 8, nBottom); 

pDC->SelectObject (&m_penColorLight ) ; 

pDC->MoveTo (nXpos + 4, nTop); 

pDC->LineTo (nXpos + nHeight + 3, nBottom); 

pDC->MoveTo (nXpos + 8, nTop); 

pDC->LineTo (nXpos + nHeight + 1, nBottom); 

r% 

.{z^ pDC->SelectObject (&:m_penColorLighter) ; 

5; pDC->MoveTo (nXpos + 5, nTop); 

pDC- >LineTo {nXpos + nHeight + 4, nBottom); 
-JJ pDC- >MoveTo {nXpos + 7, nTop); 

Z\ pDC->LineTo (nXpos + nHeight + 6, nBottom); 

\ 1 1 for the number of bands 
} // if indeterminate 
iiJ else 

int nRight = rect. right; 

1=^= pDC->MoveTo (nLef t + 2, nBottom - 4); 

f% pDC- >LineTo (nRight - 2, nBottom - 4); 

J"; pDC->MoveTo(nLeft + 2, nTop + 2); 

pDC->LineTo (nRight - 2, nTop + 2); 
""==1 pDC->SetPixel (nLef t + 1, nBottom - 3, m_crColorLight) ; 

£\ pDC->SetPixel (nLef t + 1, nTop + 1, m_crColorLight ) ; 

pDC- >SelectObj ect ( &m_penColorLighter) ; 
pDC->MoveTo (nLef t + 2, nBottom - 5); 
pDC- >LineTo (nRight - 3, nBottom - 5); 
pDC->LineTo (nRight - 3, nTop + 3); 
pDC->LineTo (nLef t + 1, nTop + 3); 

pDC->SetPixel (nLef t + 1, nBottom - 4, m_crColorLighter ) 
pDC->SetPixel (nLef t + 1, nTop + 2, m_crColorLighter) ; 

pDC- >SelectObj ect ( &m_penColor ) ; 
pDC- >MoveTo (nLef t , nBottom - 1); 
pDC- >LineTo (nLef t , nTop); 
pDC->LineTo (nLef t + 2, nTop); 

pDC->SetPixel (nLef t + 1, nBottom - 2, m_crColor) ; 
pDC->MoveTo (nLef t + 2, nBottom - 3); 
pDC->LineTo (nRight - 2, nBottom - 3); 
pDC->MoveTo (nLef t + 2, nTop + 1); 
pDC->LineTo (nRight - \, nTop + 1); 

pDC->SelectObject ( &m_penColorDark) ; 
pDC->MoveTo (nLef t + 2, nBottom - 2); 
pDC->LineTo (nRight - 2, nBottom - 2); 
pDC->LineTo (nRight - 2, nTop + 1); 
pDC->MoveTo (nLef t + 2, nTop); 
pDC->LineTo (nRight , nTop); 

pDC->SetPixel (nLef t + 1, nBottom - 1, m_crColorDark) ; 



4 



MacProgressCtrl . cpp 



10/27/00 



pDC->SelectObject (&m 
pDC- >MoveTo (nLef t + 

pDC- >LineTo (nRight - TT^nBottom - 1) 
pDC- >LineTo (nRight - 1, nTop) 



fColorDarker) ; 
Bottom - 1} ; 
nBottom - 1) ; 



pDC- >SelectObj ect ( &m_penShadow) ; 
pDC->MoveTo (nRight , nTop) ; 
pDC- >LineTo (nRight , nBottom); 

pDC- >SelectObj ect ( &m_penLi teShadow) ; 
pDC- >MoveTo (nRight + 1, nTop) ; 
pDC- >LineTo (nRight + 1, nBottom); 
} // if not indeterminate 

pDC- >SelectOb j ect (pOldPen) ; 
} // DrawHorizontalBar 

// 

// 

void CMacProgressCtrl : : DrawVert icalBar (CDC *pDC, const CRect rect) 
// 

// Return Value: None. 
// 

// Parameters : pDC - Specifies the device context object. 

// rect - Specifies the rectangle of the progess bar. 

// 

// Remarks : Draws a vertical progress bar. 

// 

{ 

int nHeight = rect , Height () ; 
Zl if ( ! nHeight) 
return; 

J3 int nLeft = rect. left; 
■^1 int nTop = rect. top; 
'J: int nRight = rect. right; 
^iJ int nBottom = rect. bottom; 

='s CPen *pOldPen = pDC- >SelectOb j ect ( &m_penColor ) ; 

- if (m_blndeterminate ) 
{ 

f=~ int nNumBands = (nHeight / IND_BAND_WIDTH) + 2; 

'zZ int nHeight = rect. Width () + 1; 

%.j int nAdjust = nBottom - m_nlnd0f f set ; 

int nXposl = nLeft; 

int nXpos2 = nRight + 1; 
'^^ int nYpos = nTop + 1; 

for (int i = 0; i < nNumBands; i++) 
{ 

nYpos = nAdjust - (i * IND_BAND_WIDTH) ; 

pDC- >SelectObj ect ( &m_penColorDarker ) ; 

pDC- >MoveTo (nXposl , nYpos); 

pDC- >LineTo (nXpos2 , nYpos + nHeight); 

pDC- >SelectObj ect { £cm_penColorDark) ; 

pDC- >MoveTo (nXposI , nYpos + 1); 

pDC- >LineTo (nXpos2 , nYpos + nHeight + 1); 

pDC- >MoveTo (nXposI , nYpos + 9); 

pDC- >LineTo (nXpos2 , nYpos + nHeight + 9); 

pDC- >SelectObj ect ( £tm_penColor ) ; 

pDC- >MoveTo (nXposl , nYpos + 2); 

pDC- >LineTo {nXpos2 , nYpos + nHeight + 2); 

pDC- >MoveTo (nXposI , nYpos + 8); 

pDC- >LineTo (nXpos2 , nYpos + nHeight + 8); 

pDC->SelectObj ect ( &m_penColorLight ) ; 
pDC- >MoveTo (nXposI , nYpos + 3); 
pDC->LineTo {nXpos2 , nYpos + nHeight + 3); 
pDC- >MoveTo (nXposl , nYpos + 7); 
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pDC->LineTo (nXpo^^^Ypos + nHeight + 7) 



P3 



pDC - >Se lect Ob ject^ffh_penCol or Lighter) ; 
pDC- >MoveTo (nXposl , nYpos + 4); 
pDC->LineTo (nXpos2 , nYpos + nHeight + 4); 
pDC- >MoveTo (nXposl , nYpos + 6); 
pDC->LineTo (nXpos2 , nYpos + nHeight + 6) ; 
} // for the number of bands 
} // if indeterminate 
else 

{ 

if (nHeight > 3) 
{ 

pDC->MoveTo (nLef t , nTop + 1 ) ; 
pDC- >LineTo (nLef t , nTop) ; 
pDC- >LineTo (nRight , nTop) ; 
pDC- >MoveTo (nLef t + 1, nBottom - 2); 
pDC- >LineTo (nLef t + 1, nTop + 1) ; 
pDC->MoveTo (nRight - 3, nBottom - 3); 
pDC->LineTo (nRight - 3, nTop + 1) ; 
pDC->SetPixel (nRight - 2, nTop + 1, m_crColor) ; 

pDC->SelectObject (&m_penColorLight ) ; 
pDC->MoveTo (nLef t + 2, nBottom - 3); 
pDC->LineTo (nLef t + 2, nTop + 1) ; 
pDC->MoveTo (nRight - 4, nBottom - 3); 
pDC->LineTo (nRight - 4, nTop + 1); 

pDC->SetPixel (nLef t + 1, nTop + 1, m_crColorLight ) ; 
pDC->SetPixel (nRight - 3, nTop + 1, m_crColorLight ) ; 

pDC->SelectObj ect (&m_penColorLighter) ; 
5f pDC- >MoveTo (nLef t + 3, nBottom - 3); 

□1 pDC->LineTo (nLef t + 3, nTop + 1); 

■J] pDC- >MoveTo (nRight - 5, nBottom - 3); 

rj^ pDC->LineTo (nRight - 5, nTop + 1); 

pDC- >SetPixel (nLef t + 2, nTop + 1, m_crColorLighter) ; 
-ij pDC->SetPixel (nRight - 4, nTop + 1, m_crColorLighter) ; 

^\ pDC- >SelectObj ect ( &m_penColorDark) ; 

= pDC->MoveTo (nLef t , nBottom - 1); 

= pDC- >LineTo (nLef t , nTop + 1); 

pDC->MoveTo (nLef t + 2, nBottom - 2); 

pDC- >LineTo (nRight - 2, nBottom - 2) ; 

pDC->LineTo (nRight - 2, nTop + 1); 
nJ pDC->SetPixel (nRight - 1, nTop + 1, m_crColorDark) ; 

pDC->SelectObj ect (&m_penColorDarker) ; 
pDC->MoveTo (nLef t + 1, nBottom - 1); 
pDC->LineTo (nRight - 1, nBottom - 1); 
pDC->LineTo (nRight - 1, nTop + 1); 

} 

else 

{ 

CBrush br (m_crColor) ; 

CBrush *pOldBrush = pDC- >SelectOb j ect ( &br ) ; 

pDC- >SelectObj ect ( &m_penColorDark) ; 

pDC- >Rectangle (rect ) ; 

pDC- >SelectObject (pOldBrush) ; 

} 

} // if not indeterminate 

pDC->SelectObject (pOldPen) ; 
) // DrawVerticalBar 

// 

// 

BOOL CMacProgressCtrl : lOnEraseBkgnd (CDC* pDC) 
// 

// Return Value: Nonzero if it erases the background; otherwise 0. 
// 

// Parameters : pDC - Specifies the device-context object. 
// 

// Remarks : The framework calls this member function when the 

// CWnd object background needs erasing (for example, 
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// 
// 
// 
{ 

} 

ti- 
ll 
vo 
// 
// 
// 
// 
// 
// 
// 
// 
{ 



when 
regi 



zed) . It is 
r painting. 



called to prepare a. 



validated 



return TRUE; 
// OnEraseBkgnd 



id CMacProgressCtrl : :GetColors ( ) 
Return Value: None. 
Parameters : None. 
Remarks : 



Calculates the lighter and darker colors, as well as 
the shadow colors. 



m_crColorLight = LightenColor (m_crColor , 51); 
m_crColorLighter = LightenColor (m_crColorLight , 51); 
m_crColorLightest = LightenColor (m_crColorLighter , 51); 
m_crColorDark = DarkenColor {m_crColor , 51); 
m_crColorDarker = DarkenColor (m_crColorDark , 51); 
m_crDkShadow = : : GetSysColor (COLOR_3DDKSHADOW) ; 
m_crLiteShadow = :: GetSysColor (COLOR_3DSHADOW) ; 

// Get a color halfway between COLOR_3DDKSHADOW and C0L0R_3DSHAD0W 
BYTE byRed3DDkShadow = GetRValue {m_crDkShadow) ; 
BYTE byRed3DLiteShadow = GetRValue (m_crLiteShadow) ; 
BYTE byGreen3DDkShadow = GetGValue (m_crDkShadow) ; 
BYTE byGreen3DLiteShadow = GetGValue (m_crLiteShadow) ; 
BYTE byBlue3DDkShadow = GetBValue (m_crDkShadow) ; 
BYTE byBlue3DLiteShadow = GetBValue (m_crLi teShadow) ; 

A^- m_crShadow = RGB (byRed3DLi teShadow + ( (byRed3DDkShadow - byRed3DLi teShadow) >> 1), 
'^f byGreen3DLiteShadow + ( (byGreen3DDkShadow - byGreeri3DLi teShadow) >> 1) 

Ui byBlue3DLiteShadow + ( (byBlue3DDkShadow - byBlue3DLi teShadow) >> 1)); 

}ni // GetColors 

11: 

v5id CMacProgressCtrl :: SetColor (COLORREF crColor) 

None . 

crColor - New color. 



/yt Return Value: 

n\ 

/21 Parameters 

ri' Remarks 
// 
// 
( 

m_crColor = crColor; 
GetColors ( ) ; 
CreatePens ( ) ; 
RedrawWindow ( ) ; 
} // SetColor 



Sets the progress bar control's color. The lighter 

darker colors are recalculated, and the pens recreated. 



// 

// 

COLORREF CMacProgressCtrl : :GetColor ( ) 
// 

// Return Value: The current color. 
// 

// Parameters : 
// 

// Remarks : 
// 
{ 

return m_crColor; 
} // GetColor 



II- 
II 



None . 

Returns the progress bar control's current color. 



7 



MacProgressCtrl . cpp 



10/27/00 



void CMacProgressCtrl : : Creat^^^^ ( ) 

// 

// Return Value: None. 
// 

// Parameters : None. 
// 

// Remarks : Deletes the pen objects, if necessary, and creates them. 

// 

( 

DeletePens ( ) ; 

m_penColorLight . CreatePen ( PS_SOLID, 1, m_crColorLight ) ; 
m_penColorLighter . CreatePen (PS_SOLID, 1, m_crColorLighter) ; 
m_penColor . CreatePen (PS_SOLID, 1, m_crColor) ; 
m_penColorDark.CreatePen(PS_SOLID, 1, m_crColorDark) ; 
m_penColorDarker . CreatePen ( PS_SOLID , 1, m_crColorDarker) ; 
m_penDkShadow, CreatePen ( PS_SOLID , 1, m_crDkShadow) ; 
m_penShadow. CreatePen ( PS_SOLID, 1, m_crShadow) ; 
m_penLiteShadow. CreatePen ( PS_SOLID, 1, m_crLiteShadow) ; 
} // CreatePens 



// 

II 

void CMac 
II 

II Return 
II 

II Parame 
II 

/yTlRemark 

iLn 

if (m 

ul m 

K\ if (m 



ProgressCtrl : :DeletePens ( ) 

Value: None, 
ters : None. 

: Deletes the pen objects. 



penColorLight . m_hOb j ect ) 
penColorLight . DeleteObj ect ( ) ; 
penCo lor Lighter . m_hObj ect ) 
^ m_penColorLighter , DeleteObj ect {) 

if (m_penColor , m_hObj ect ) 
Ji m_penColor . DeleteObj ect () ; 

X\\ if {m_penColorDark . m_hOb j ect ) 

m_penColorDark . DeleteObj ect ( ) ; 
~^ if (m_penColorDarker . m_hOb j ect ) 

m_penColorDarker . DeleteObj ect ( ) ; 
if (m_penDkShadow. m_hObj ect ) 

i_penDkShadow. DeleteObj ect ( ) ; 
i_penShadow . m_hOb j ect ) 
i_penShadow . DeleteObj ect ( ) ; 
[_penLiteShadow.m_hObject ) 

penLiteShadow. DeleteObj ect ( ) ; 
letePens 



nJ if 



n 
Si 
P 

=1 m 
}^'' // De 



// 

// 

void CMacProgressCtrl :: Set Indeterminate (BOOL bindeterminate ) 
// 

// Return Value: 
// 

// Parameters 
// 

// Remarks 
// 
{ 



None . 

bindeterminate - Specifies the indeterminate state. 
Sets the indeterminate flag. 



m_b Indeterminate = bindeterminate; 
if (m_blndeterminate) 

{ 

CRect rect; 
GetClientRect (rect ) ; 
m_nIndOffset = 0; 

RedrawWindow ( ) ; 

SetTimer ( IDT_INDETERMINATE , 25 , NULL) 

} 

el se 
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KillTimer ( IDT_INDETF^^^TATE) ; 

RedrawWindow ( ) ; 

} ^ 

} // Set Indeterminate 

// 

// 

BOOL CMacProgressCtrl : : Get Indeterminate ( ) 
// 

// Return Value: m_blndeterminate . 
// 

// Parameters : None. 
// 

// Remarks : Returns m_blndeterminate . 

// 
{ 

return m_blndeterminate ; 
} // Get Indeterminate 

// 

// 

void CMacProgressCtr 1 : : OnTimer (UINT nIDEvent) 
// 

// Return Value: None. 
// 

// Parameters : nIDEvent - Specifies the identifier of the timer. 



// 

// Remarks : The framework calls this member function after each 

// interval specified in the SetTimer member function used 

1^ to install a timer. 

^=== // Increment the indeterminate bar offset and redraw the window. 
•'.\\ if (nIDEvent == IDT INDETERMINATE) 



KillTimer (nIDEvent) ; 

%l if (++m_nIndOf f set > IND_BAND_WIDTH - 1) 

f|| m_nIndOffset = 0; 

RedrawWindow () ; 

H SetTimer (IDT_INDETERMINATE, 25, NULL) ; 

}St // OnTimer 

I y 

I'Hi 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 u 1 1 1 1 1 1 1 1 1 1 1 

/^^OProgress Class 

iflj 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIIIIIIIIIIIIIIIIIIIII 
II Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
OProgress : :OProgress ( ) 

{ 
) 

OProgress : : -OProgress ( ) 

{ 
} 

* 

* Initialize progress control 

* and insert it in the main frame window status bar 
* 

bool OProgress :: Init ial ize ( ) 

{ 

CMDIFrameWnd* mf = (CMDI FrameWnd* ) Af xGetMainWnd ( ) ; 

if ( !mf ) 

{ 

AfxMessageBox (" Failed to create progress control"); 
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^^^(CStatusBar*) (mf - >GetMessageBar (^^^ 



return false; 

} 

CStatusBar* main_statU9_lD^= (CStatusBar * ) (mf - >GetMessageBar ( ] 
if ( ! main_status_bar ) 

{ 

AfxMessageBox (" Failed to create progress control*'); 
return false; 

} 

RECT rc; main_status_bar->Get I temRect ( 1 , Strc) ; 
if (! Create (WS_CHILD | WS_VISIBLE, rc, main_status_bar , 1)) 
{ 

AfxMessageBox Failed to create progress control"); 
return false; 

} 

SetRange (0 , 10 0) ; SetPos (0) ; SetColor (RGB (0,10,0)); 

return true ; 



* 

* Show progress with optional message string 

* in the main frame window status bar 
* 

void OProgress : : ShowProgress ( int percent, char *info /*=NULL*/) 

{ 

if (GetSaf eHwnd 0 ==NULL) return; 
if (percent<=0 ) percent=0; 
else if (percent >100 ) percent=100; 
CJ SetPos (percent ) ; 

if (percent==0 || percent=-100) inf o= " Ready " ; 
~' if (info) 



01 



^iS CMDIFrameWnd* mf = ( CMDI FrameWnd* ) Af xGetMainWnd ( ) ; 

Sj if(!mf) return; 

CStatusBar* main_status_bar= ( CStatusBar * ) (mf - >GetMessageBar ( ) ) 

"^f if ( ! main_status_bar ) return; 

^ij main_status_bar->SetPaneText (0, info) ; 

ni 1 

CI 

nj 

CI 
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o^^ke lEToolBar class. 

^Wi / 1 1 1 n I n 1 1 1 1 1 1 1 1 1 1 1 1 n I n I n I ii^^h 



II lEToolBar. h: interface fo^ 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ITTTI I II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 llWl 1 1 



#if ! defined (AFX_IETOOLBAR_H 4 6 7C4 53D_E94 3_11D3_9 77E_00105A217 74 F INCLUDED_) 

#def ine AFX_IETOOLBAR_H 4 6 7C4 5 3D_E94 3_1 1D3_9 77E_00105A21774 F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 
#include <afxext.h> 

class lEToolBar : public CToolBar 

{ 

publ ic : 

void SetlnsertedControlText (CString s) ; 

bool TrackDropDownMenu (UINT buttonID, CWnd* pParent); 

bool AttachDropDown (UINT buttonID, UINT menuID, UINT menul temID) ; 

bool MakeCStatic (UINT id) ; 

BOOL CreateIE( CWnd* pParentWnd, UINT img_width, 

UINT img_height, UINT resource ); 

lEToolBar ( ) ; 
-lEToolBar ( ) ; 
private : 

UINT m_ImageWidth, m_ImageHeight ; 

UINT* menuIDs; 
UINT* menuItemlDs; 
CStatic* m_Static; 

p void SetButtonsIE ( ) ; 

bool InsertControl (int ctrl_type, UINT nID, CString title=""); 

^: CMenu* GetSubmenuFromID (CMenu* menu, UINT id); 

#ejldif // ! defined (AFX IETOOLBAR_H 467C453D_E943_11D3_977E_00105A21774F INCLUDED_ 
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aJ^^^ of the lEToolBar class. 

/mil 1 11 1 / f I f 1 1 1 1 / 1 1 11 1 1 / 11 1 f 1 1 1 1 1 iimi I / 



II lEToolBar . cpp : implement 
// 

1 1 1 H 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 H 1 1 1 1 1 

^include "stdafx.h" 

# include ''lEToolBar . h" 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 

lEToolBar : : lEToolBar { ) 
{ 

m_Static=NULL; 
menuIDs=NULL; 
menul temIDs=NULL ; 

} 

lEToolBar : : -lEToolBar ( ) 

( 

if(m_Static) delete m_Static; 

ifimenuIDs) delete [] menuIDs; 

if (menuItemlDs) delete [] menul temlDs ; 

1 

* Creating toolbars with IE style 
■*■ 

************************************************* 
BOOL lEToolBar : :CreateIE (CWnd *pParentWnd, UINT img_width, 

UINT img_height, UINT resource) 



{^1 



m_Static=NULL; menuIDs=NULL ; menul temIDs=NULL ; 
m_ImageWidth=img_width ; m_ImageHeight= img_height ; 

if (CToolBar : : Great eEx { pParentWnd , TBSTYLE_FLAT , 
WS_CHILD I WS_VISIBLE | CBRS_ALIGN_TOP | 

CBRS_TOOLTIPS | CBRS^FLYBY | CBRS_S I ZE_DYNAMIC ) FALSE ) 

{ 

Af xMessageBox ( " Fai led to create toolbar"); 
return FALSE; 

} 

if (LoadToolBar (resource) ==FALSE) 

{ 

Af xMessageBox ( " Fai led to load toolbar"); 
return FALSE; 

} 

SetButtonsIE ( ) ; 

// TODO: Remove this if you don't want tool tips or a resizeable toolbar 
SetBarStyle(GetBarStyle() | GBRS_TOOLTI PS | CBRS_FLYBY | CBRS_SI ZE_DYNAMIC) 
// Support for dropdown arrows 

GetToolBarCtrl { ) . SetExtendedStyle { TBSTYLE_EX__DRAWDDARROWS ) ; 
menuIDs = new UINT [GetCount ( ) +5] ; 
menuItemlDs = new UINT [GetCount ( ) +5 ] ; 

for(int i = 0; i < GetCount () +5 ; i++) menuItemlDs [i] =menuIDs [i] =0 ; 
return TRUE; 



* Set IE-like flat buttons with text 
* 

***************************************************** 
void lEToolBar :: SetButtonsIE { ) 



// Add text to each button 
int tlength=5; 

for(int i = 0; i < GetCount {); i++) 
{ 

UINT id = GetltemlD(i) ; 

CString s; if ( ! s . LoadStr ing ( id) ) continue; 
int j = s . Find ( ' \n ' ) ; 
if (j < 0) continue; 
else s=s.Mid(j+l); 
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if (s.GetLengthO >tle^^^) s = s . Left ( t length) ; 
SetButtonText ( i , s) 

} 

// Resize buttons to include text 
CRect rect; 
GetltemRect (0, &rect) ; 

Set Sizes (rect . Size ( ) , CSize {m_ImageWidth , m_ImageHeight ) ) ; 

) 

* 

* Associate given id with CStatic control 
* 

************************.**★**************************************/ 

bool lEToolBar : :MakeCStatic(UINT id) 

{ 

return InsertControl ( 1 , id, " 0" ) ; 

} 

* Insert a control instead nID button 
* 

*****************************************************************/ 
bool lEToolBar :: InsertControl ( int ctrl_type, UINT nlD, 

CString title /* */) 

{ 

DWORD dwStyle = WS_CHILD | WS_VISIBLE; 
CWnd* pCtrl=NULL; 
L:i CRect rect; 

fi% // Make sure the id is valid 

'^^l int index = CommandToIndex ( nID ); if{index<0) return false; 

Get I temRect ( index , rect ) ; rect. left += 15; 
SJ SetButtonInfo(index, nID, TBBS_SEPARATOR, rect . Width ()) ; 

11 Insert the control 
switch ( ctrl_type) 

nJ { 

„ case 1: // CStatic 

7^ if(m_Static) return false; 

\S m_Static = new CStatic (); i f ( ! m__Stat ic ) return false; 

p dwStyle |= SS_CENTER; 

n\ if(!m Static->Create ( tit le , dwStyle, rect, this, nID) ) 

M < ' 

delete m_Static; m_Stat ic=NULL ; return false; 

cs } 

pCtrl=m_Stat ic ; 
break; 

default: return false; 

} 

GetltemRect ( index, &rect ); 

pCtrl - >SetWindowPos ( 0 , rect. left, rect. top, 0, 0, 

SWP_NOZORDER | SWP_NOACT I VATE | SWP_NOSIZE | SWP_NOCOPYB ITS ) 
pCtrl->ShowWindow( SW_SHOW ); 
return true; 



* 

* If a control was inserted into the toolbar 

* set it text to a given string 
* 

void lEToolBar :: Set InsertedControlText (CString s) 

{ 

if (m_StaCic) m_Static->SetWindowText (CString ( "\n" ) +s) ; 

) 

/**************************************************************** 

* 

* Attach dropdiwn arrow and menu to a given button 
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bool lEToolBar : :AttachDropDq^«INT buttonID, UINT menuID, UINT i^^ItemlD) 

w 

II Make sure the id is vaiid 
int index = CommandTo Index (but ton ID) ; 
if(index<0 || index>=GetCount {) ) return false; 
DWORD dwStyle = GetButtonStyle ( index) ; 
dwStyle |= TBSTYLE_DROPDOWN; 
SetButtonStyle ( index , dwStyle); 
menuIDs [index] =menuID; 
menuItemlDs [index] =menuItemID; 
return true; 

) 



/ 



Di splay dropdown menu 



**************************************************** 

bool lEToolBar: : TracJcDropDownMenu (UINT buttonID, CWnd *pParent) 

{ 

// MaJce sure the id is valid 

int index ~ CommandTo Index ( but tonID) ; 

if(index<0 || index>=GetCount () ) return false; 

// Find menu ID 

UINT menuID=menuIDs [ index] ; 

if (menuID==0) return true; // no menu attached 

// Load and display popup menu 

CMenu menu; menu . LoadMenu (menuID) ; 

CMenu* pPopup=GetSubmenuFromID ( &menu , menul temlDs [ index] ) ; 

,r=| if ( ! pPopup) return true; // no such submenu 

Z!* CRect rc ; 

^'j this->SendMessage (TB_GETRECT, buttonID, (LPARAM)&rc) ; 
Uj this->ClientToScreen (&rc) ; 

-^j pPopup->TrackPopupMenu ( TPM_LEFTALIGN | TPM_LEFTBUTTON | TPM_VERTICAL , 
..r rc.left, rc. bottom, pParent , &rc) ; 

return true; 

/ ■* V^* ******************************************* 

* Find submenu which contains given menu id 

* *************************************************************/ 

Cr^I^nu* lEToolBar: rGetSubmenuFromID (CMenu* menu, UINT id) 

{H 

r-j CMenu* sub; 

if(!menu) return NULL; 
'-^ UINT c = menu- >GetMenuI temCount ( ) ; 

if (c< = 0) return NULL; 

for(UINT i=0; i<c; i++) 

{ 

if (menu->GetMenuItemID ( i ) ==id) return menu; 
sub = menu- >Get SubMenu ( i ) ; 
if(!sub) continue; 
sub=GetSubmenuFromID(sub, id) ; 
if (sub) return sub; 

} 

return NULL; 
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// RayTracer. h: interface fo^ 
// 

//////////////////////////// 



.e RayTracer class. 

lini/iniiiiiiiiiiii/iitiiiifi// 



#if I defined ( AFX_RAyTRACER_H 974 1FB4F_8B17_1 1D3_9720_00105A2 1774 F INCLUDED_) 

#def ine AFX_RAyTRACER_H 9 74 1FB4 F_8B17_11D3_9 72 0_00105A21774F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

#include <stdlib.h> 
#include <stdio.h> 
#include <conio.h> 
iinclude <math.h> 
iinclude <t:ime.h> 
#include "RTScreen.h" 
# include "Volume.h" 

class RayTracer 

{ 

public : 
void 
void 
void 
void 
void 
bool 
char 



SetBodyColor ( int cmin, int cmax) ; 
SetSurf aceLevel ( int lev) ; 
SetGranularity { int gr) ; 

SetEyePosit ion (double x, double y, double z); 
SetEyePositionOnSphere {double deg_hor, double deg_ver) ; 
SetVolumeScales (double sx, double sy, double sz) ; 
r error [64 ] ; 



,f% double 
21 RayTra 
virtua 

p£54'vate : 

signed 

41 int 
nj int 
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DoTracing ( ) ; 
cer (Volume* v, RTScreen* rts) 
1 -RayTracer ( ) / 



5=^ 



char IS[16] [ 16 ] , AX , AY , AZ , r_OX , r_OY , r_OZ ; 

r_ALscale [4] , r_N [4] ,Na [4] ,NX [14] , lED [4] , IL [4] , P [4] , TOP [4] ; 
r_COLb, r_COLf , r_COLc , r_COLl , r_LE, r_HI , r_MAXX , r_MAXY, r_DIM, r_DIMl ; 
Fmax , Fmin , r_LEV ; 
r_Rotat ionCode ; 

BD, I LI 2, I LI 3, IL23,DLl,DL2,PE,QE,AA,r_DIM2,r_DIM3; 
r_Leye[4] ,LL[4] ,AP[4] ,B1,B2,FIL; 
DOWN , CUl , CU2 , CVl , CV2 , CV3 , CFl , CF2 , CF3 ; 
LLL,D1 ,D2, Fk; 
en* r_Screen; 
r Volume; 



}; 



void EDGE ( ) ; 

void INST (int p,int q,int u,int v) ; 

bool PICTURE (char how) ; 

char TEST (int wl , int w2,int w3 , int w4 ) ; 

int Q_JUMP ( ) ; 

double FUNC(long x.long y, long z); 

double JUMP (double t) ; 

// inline finctions 

inline void CHESS (int uu,int vv,int il,int i2,int i3,int i4 , int j 1 , int j2, 

int j3,int j4,int j5,int j6,int j7,int j8 ); 
inline void GUR02(char mask, long il.long i2,long i3 , long i4 , long jl,long j2, 

long j 3, long j 4, long j 5, long j 6, long j 7, long j8,int ix,int iy) 
inline bool CUBESIGN(int al,int a2,int a3 , int a4 , int a5 , int a6 , int a7,int a8); 
inline int INTENS (double a, double b, double c, double d, double t); 
inline int F(int x, int 
inline int F_XpYpZp(int 
inline int F_XmYpZp(int 
inline int F_XpYmZp(int 
inline int F_XmYmZp(int 
inline int F_XpYpZm(int 
inline int F_XmYpZm(int 
inline int F_XpYmZm(int 
inline int F XmYmZm(int 
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aJ^^^ of the RayTracer class. i^^k 
I^Tl 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 U 1 1 1 1 1 1 1 1 / 1 1^1 1 



II RayTracer . cpp : implementa| 
// 

/////////////////////////////777////////////////////////////////7^/// 

# include " RayTracer . h" 



^Jifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

idefine new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
RayTracer :: RayTracer (Volume* v, RTScreen* rts) 

{ 

r_Volume=v; r_Screen=rt s ; 
SetVolumeScales (1,1,1) ; 
SetEyePosit ion (1,1,1) ; 
SetGranulari ty (4 ) ; 
SetSurf aceLevel ( 0 ) ; 
SetBodyColor (10, 255) ; 

} 

RayTracer :: -RayTracer ( ) ( } 

int (RayTracer :: *F_XYZ) ( int x, int y, int z); 



***************************************************** 



* vfl tracing; returns tracing time 

* ~^ 

* *■ ********************************************** 
dopDle RayTracer :: DoTracing ( ) 

iinpf's i,j,j0,jl,k,m,ml,m2,lef,mid,rig,idim,jdim; 

iriy jfO,jfl,jlO,jll,jmO,jml,jmin, jmax, pO ,pl,p2,p3,jjl,jj2,jj5,jj6,wd[4] [500] ; 

dcjuble ul , u2 , vl , v2 , v3 , du , unl , un2 , vnl , vn2 , vn3 ,a,b,hl,h2,el,e2,e3 ,e4 ; 
double xO,yO,zO, t , ddt , dt [4] ; 
d4ii>le x[43 ,td[3] [500] ; 
cfec]c_t cloclc_star t , clock_end 

/ VS*************** RAY TRACING PARAMETERS */ 
/ l^p 1 ume sizes in (x,y,z) 
r_SI[l] =r__Volume->GetXSize ( ) ; 
r_N [2] =r_Volume->GetYSize ( ) ; 
r_N [3] =r_Volume->GetZSize ( ) ; 

// int Axes numbers, to account for views from any octant 
r_OX=l; r_0Y=2; r_0Z=3; 
// int Colors 

r_COLc=10; // non-body background 

r_C0Ll=5 ; // color to draw the volume frame */ 
r_MAXX=800; r_MAXY=700; // max screen sizes for traced picture 

r_LE=r_MAXX-10 ; r_HI =r_MAXY- 10 ; // actual screen sizes for traced picture 

/ ***************** Do we need scaling ? */ 
r_Volume- >GetMinMax ( Fmi'n, Fmax) ; 
PE=Fmax-Fmin ; 

if (r_LEV<Fmin || r_LEV>Fmax) 

{ 

sprintf (r_error, "Chosen level must be in [%d,%d3 interval Fmin , Fmax) ; 
return -1.0; 

} 

if (PE>500) 
{ 

Fk= (double) (500. /PE) ; 
r_LEV:=(int) ( r_LEV*Fk+0 . 5 ) ; 

sprintf (r_error, "Data needs to be scaled, current range is [ %d, %d] " , Fmin, Fmax) 
return -1.0; // Need F(i,j,k) -> (F[i] [j] [k] -Fmin) *Fk 

} 
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else Fk=l . ; 

FIL= (double) (10000*sqrt ( 5 . /^^( Fmax-Fmin+1 ) ) ) ) 

/***************** Compute picture parameters */ 

if (! PICTURE ('Y')) return -1.0; 

AX=1; AY=2; A2=3; 

ul=CUl; U2=CU2; 

vl=CVl; v2=CV2; v3=CV3; 

du=AP[l]; unl=AP[2]; un2=AP[3l; 

vnl=CFl; vn2=CF2; vn3=CF3 ; 

ml=r_DIMl ; m2=r_DIM2 ; 

/***************** Accomodate different quadrants */ 
r_Rotat ionCode=0 ; 

if (r_Leye [1] <0) r_Rotat ionCode += 1; 
if (r_Leye [2] <0) r_Rotat ionCode += 10; 
if (r_Leye [3] <0) r_Rotat ionCode += 100; 
switch (r_Rotat ionCode) 

{ 

case 001: 

F_XY2= ( this->F_XpYpZm) ; 
break ; 
case 010: 

F_XYZ= (this->F_XpYm2p) ; 
break; 
case Oil : 

F_XYZ= (this->F_XpYmZm) ; 
break; 
c^fe 100 : 

F_XYZ= (this->F_XmYpZp) ; 
2f break; 
c^h 101: 

J] F_XYZ= (this->F_XmYpZm) ; 
J 5 break; 
ca^e 110: 

F_XYZ= ( this->F_XmYmZp) ; 
ijj break; 
c*e^ 111 : 

''^•^ F_XYZ= (this->F_XmYmZm) ; 
= break; 
d^feult : 

F_XYZ= (this->F_XpYpZp) ; 
break; 

}nj 
/*^j 

i&^AZ<0) { if( (AX = = 2) I I (AX = =-2) ) { pl = r_N[2]; p2=:r_N[l]; } 

Zi else { pl=r_N[l]; p2=r_N[2]; } 

f(W(k = 0;k<= (r_N[3] -1) /2;k+ + ) { p3 = r_N[3]-k; 
f or ( i=0 ; i<=pl ; i++) ( f or ( j =0 ; j <=p2 ; j ++) { 
pO = F(i,j,k); F(i, j ,k)=F[i] [j] [p3] ; F [ i ] [ j ] [p3 ] =pO ; } } 
} // next k 
) // end if 
switch (AX) { 
case -1 : pl=r_N [1] /2; 

for (k=0;k< = r_N[3] ;k+ + ) { f or ( i=:0 ; i<=pl ; i + + ) { 
for (j=0; j<=r_N[2] ; { 

pO=F(i, j ,k) ; F(i, j ,k) =F [r_N[l] -i] [r_N[2] -j] [k] ; F[r_N[l] -i] [r_N[2] -j] [k] =pO, 

} 

} // next k 

break; 

case 2: pl=max ( r_N [ 1 ] , r_N [ 2 ] ) ; 
for (k=0;k<=r_N[3] ;k++) { 

for (i=0;i<= (r_N[2] -l)/2;i++) { f or ( j = 0 ; j <=r_N [ 1 ] ;j++) { 

pO = F(i,j,k); F(i, j ,k) =F[r_N[2] -i] [j] [kl ; F [r_N [ 2 ] - i 1 [ j ] [ k] =pO ; } } 
for(i=0;i<=pl;i++) { for ( j=0; j<i; j++) ( 
p0 = F(i,j,k); F(io .1^) =F[jni] [k] ; F [ j ] [ i ] [ k] =p0 ; } } 
} // next k 

break ; 

case -2: pl=max (r_N [ 1] , r_N [2] ) ; 
for (k=0;k<=r_N[3] ;k++) { 

for (i=0;i<=r_N[2] ;i++) { f or ( j = 0 ; j < = ( r_N [ 1 ] -l)/2; j++) { 
p0 = F(io.k); F(i, j ,k) =F[il [r_N[l] -j] [k] ; F[i] [r_N(ll -j] [k] =pO; } } 

f or ( i=0 ; i<=pl ; i++) { for ( j=0; j<i; j++) { 



2 



RayTracer . cpp 



10/27/00 



pO = F{i, j ; F(i, j,k)=F[j]^^[k] ; F[j] [i] [lc]=pO; } } 
} // next k 

break ; 

} // end switch 

/***************** DRAW AND FILL POLIGON 

// ! ! Draw frame ? 

/* 

if (r_COLc!=0) {setf illstyle(SOLID_FILL,r_COLc) ; f illpoly ( 6 , NX) ; } 
set color (r_COLl) ; drawpoly ( 7 , NX) ; 
line(-unl,r_HI+vnl+vn2,NX[0] ,NX[1] ) ; 
line(-unl,r_HI+vnl+vn2,NX[4] ,NX[5] ) ; 
line(-unl,r_HI+vnl+vn2,NX[8] ,NX[9] ) / 
*/ 

clock start^clock ( ) ; 



/***************** PREPARATIONS : */ 
hl=vl/ul ; h2=v2/u2 ; 

IL12 = IL[1] ; IL13 = IL[1] ; IL23 = IL[2] ; 
IL12* = IL[21 ; IL13* = IL[3] ; IL23* = IL[3] ; 

r_DIMl=r_DIM-l; r_DIM2=r_DIM*r_DIM ; r_DIM3=r_DIM2*r_DIM ; 

for(i=l;i<4;i++) { dt [i] =r_Leye [i] *r_Leye [il ; AP [i] = (double) ( 0, 5-r_N [i] * (double) ( IL [i] )) ; } 
DL1=-2*IL[11 ; DL2 = -2*IL [2] ; 

Dl= (double) (0.25/IL12) ; D2= (double) ( -0 . 5*D1/IL [3] ) ; 

a=(double)( min ( 30000 , 1000000 000 ./( 13 . *r_DIM3+4 3 *r_DIM2+10*r_DIM) )); 

i= (int) (a/ ( r_COLb+r_COLf ) ) ; 

D0WN=:2*du*LLL ; B2 = i *r_COLf *DOWN ; DOWN* = DOWN ; 
Bl= (double) (i*r_COLb+0. 5) ; BD=4 * i * ( long) ( r_DIM3 ) ; 

b= (double) (Na [1] +Na [2] +Na [3] ) ; a= (double) ( 0 . 001 *du*ml/2 ) ; du*=0.999 ; 

C5|=Na [1] * (ul*ul+vl*vl) +Na [2] * vl * v2 -b*r_Leye [1] +ul*a; CF1= (Na [1] -CFl) *LL [1] *LLL; 

CF%=Na [1] * (ul*u2+vl*v2) +Na [2] *v2*v2-b*r_Leye [2] +u2*a; CF2= (Na [2] -CF2) *LL [2] *LLL; 

cQf=v3* (Na [1] *vl+Na [21 *v2) -b*r_Leye [3] ; CF3= (Na [3] -CF3) *LL [3] *LLL; 

ClMl=-LL [1] *ul*du*LLL/r_DIM; CU2 = -LL [2] *u2*du*LLL/r_DIM ; CV1=:-LL [1] * vl *du*LLL/r_DIM ; 

CVg^-LL [2] *v2*du*LLL/r_DIM; CV3=-LL [3] * v3 *du*LLL/r_D IM ; 

elj':(vn3-vn2) /r_DIM ; e2= (unl *h2 -vnl - vn2+vn3 ) /r_DIM; 

e3'g-vn2/r_DIM ; e4 = -un2*hl/r_DIM/ 

xOftrFl ; yO=CF2 ; 20=CF3 ; 

uij|CUl*r_DIM ; u2=CU2*r_DIM ; vl=CVl*r_DIM ; v2=CV2*r_DIM ; v3 =CV3 *r_DIM ; 
f OT*:( 1 = 1 ; i<4 ; i + + ) r__Leye [ i] / = r_ALscale [i] ; 

/if 9F* ************** MAIN LOOP: */ 
rfg=0 ; 

( i = 0 , idim=0 ; i<=ml ; i + + , idim+ = r_DIM) { 
print f ( "%3d%" , (int) (100*i/ml) ) ; 

j £='( int ) ( min (el , e2) +0 . 99) ; j 0 = ( int) ( max (e3 , e4) ) ; 

eiU=hl ; e2 + = h2 ; e3 + = h2 ; e4 + = hl ; 

X N|] =xO + jO*vl ; X [2] =yO + jO*v2 ; x [3] =zO + j 0*v3 ; 

^or ( j=j0; j< = jl; j++) ( 

/* GO INTO CUBE: */ 

t= max( max(x[l] ,x[2] ) ,x[3] ) ; ddt = 0. ; 

for(k=l;k<4;k++) { 
if(t = = x[k]) { NX [k] =r_N[k] ; P[k]=-IL[k]; IED[k]=k; TOP [k] =r_N [k] - 1 ; } 
else ( a=AP[k] +x[k] -t; if(a<0.5) { td [rig] [ j ] = - 1 ; goto nextj ; } 

AA=(long)a; a-=AA+0.5; NX [k] =AA/ ( - IL [k] ) ; P [k] =AA+ ( long ) (NX [k] ) * IL [k] ; 
if(P[k]==0) ( if(NX[k]==0) { ddt += ( a- 1 ) *dt [k] ; P[k]=l; 

IED[k]=0; TOP[k]=0; } 

else { ddt+=a*dt [kl ; P[k]=-IL[k]; 
IED[k]:=k; TOP [k] =NX [k] -1 ; } 

} 

else { IED[k]=0; TOP [ k] =NX [k] ; ddt + = a*dt [k] ; } 
} 

} /* next k */ 
td[rig] [ j ] = JUMP ( t +ddt ) ; /* WE'VE FOUND THE BODY */ 



nextj: x[l]+ = vl ; x[2]-»- = v2 ; x[3]+ = v3 ; 
) /* next j */ 

for ( j=0; j<jO; j+ + ) td[rig] [j]=-l; 

for (j=jl+l; j<=m2; j++) td[rig] [j]=-l; 

/* END OF FINDING ROOTS, LET'S DRAW: */ 
if(i==0) {jll=jl; jlO=jO; rig=l; mid=0; goto nexti; } 
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if(i==l) { 

if {jlO< = 0) 

wd[0} [0] =INTENS{-1, td[0] [iTTtd[l] [ 0] , - 1 , td [ 0] [ 0] ) ; 
el se 

wd(0] [jlO] =INTENS{-1, td[0] ljlO + l],td[l] [jl0],td[0] [jlO-l],td[0] [jlO]); 
/* putpixel (0,r_HI-jlO*r_DIM, wd(0] [jlO] ) ; */ 
f or ( j= j 10+1 , jdim=r_HI- ( j 10+1) *r_DIM; j j 1 1 ; j ++ , jdim-=r_DIM) { if ( j<m2) t=td[0] [j+l] 

else t=-l; 
Wd[0] [j]=INTENS(-l,t,td[l] [j] , td[0] [j-1] , td[0] [j] ) ; 
/* putpixel (0 , jdim, wd [0] [j 1 ) ; */ 
} 

for ( j=0; j<jl0; j++) { Wd[0)[j]=0; } f or ( j = j 1 1 + 1 ; j < =m2 ; j ++ ) { wd[0][j]=0; } 

jmO=jO; jml=jl; lef=0; mid=l; rig=2; p0=0; 
goto nexti; 

} /* end of case i==l */ 

if(i==2) { 
if ( jmO<=0) 

wd[l] [0] =INTENS(td[lef 3 [0] ,td[mid] [1] ,td[rig] [0] ,-l,td[mid] [0] ) ; 
el se 

wd[l] [ jmO] =INTENS (td [lef ] [jmO] ,td[mid] [jmO + 1] ,td[rig] [jmO] , 
td [mid] [ jmO-1] , td [mid] [ jmO] ) ; 
/* putpixel (r_DIM,r_HI-jmO*r_DIM,wd(l] [jmO] ) ; */ 
for ( j=jmO+l, jdim=r_HI- { jmO+1) *r_DIM ; j < = j ml ; j ++ , jdim-=r_DIM) { 
if ( j<m2) t = td [mid] [j+l] ; 
else t--l; 

wd[l] [j] =INTENS(td[lef ] [ j ] , t , td [r ig] [ j ] , td [mid] [j-1] ,td[mid] [j] ) ; 

/* putpixel (r_DIM, jdim, wd [1] [j]);*/ 
} /* next j */ 

'=ffor ( j = 0; j<jmO; j++) ( wd[l][j]=0; } for ( j=jml + l; j<=m2; j++) { wd [ 1 ] [ j ] =0 ; } 
^SjfO=jlO ; jfl=jll ; jl0=jm0 ; jll=jml ; jm0=j0 ; jml=jl ; 
g^m=lef; lef=mid; mid=rig; rig=m; 
.l:;~pl = l; goto nexti; 

} /* end of case i = = 2 */ 

.31 (i = = 3) ( 
2^if ( jmO<=0) 

!wd [2] [0] =INTENS(td[lef ] [0] , td [mid] [1] , td[rig] [0] , -1, td[mid3 [0] ) ; 
5 else 

L^wd [2] [ jmO] =INTENS ( td [lef ] [ jmO] , td [mid] [ jmO + 1] , td [rig] [ jmO] , 
"Jl td [mid] [jmO-1] , td [mid] [ jmO] ) ; 

LJ /* putpixel(idim-r_DIM,r_HI-jmO*r_DIM,wd[23 [jmO]);*/ 

r=jf or ( j = jmO + 1 , jdim=r_HI - ( jmO + 1 ) *r_DIM ; j < = j ml ; j + + , j dim- = r_DIM) { 
LJ's if(j<m2) t = td [mid] [ j+l] ; 

_J else t=-l; 

U wd[2] [j] =INTENS(td[lef ] [j] ,t,td[rig] [j] , td [mid] [j-1] ,td[mid] [j] ) ; 
rl /* putpixel ( idim-r_DIM, jdim, wd [2] [j ]) ; */ 

} 

for ( j=0; j<jmO; j++) { wd[2][j]=0;} for ( j^jml+1; j<=m2; j++) { wd[2][j]=0;} 
jmin= min(jf0,jl0) ; jmax= max ( j f 1 , j 11 ) ; 

f or ( j = jmin, j dim= jmin*r_DIM; j<=jmax-l; j ++ , j dim+=r_DIM) { 

if(j==0) { j j5=0; j j6=0; } else { j j 5=wd [ 1 ] [ j - 1 ] ; j j 6=wd [ 0] [ j - 1 ] ; } 

if (j==m2-l) { j jl = 0/ j j2 = 0; } else { j jl = wd[0] [j+2] ; j j2 = wd[l] [j+2] ; } 

switch(TEST(wd[0] [ j ] ,wd[l] [j] ,wd[0] [j+l] ,wd[l] [j+l] ) ) { 
case • ? ' : 

CHESS(0, jdim,wd[0] [j] . wd [ 1 ] [j] ,wd[0] [j+l] ,wd[l] [j+l] , 
j jl, j j2,wd[2] [j+l] ,wd[2] [j] , j j5, jj6,0,0) ; 
break ; 

case ' 1 ' : 

GUR02( ' - ' ,wd[0] [j] ,wd[l] [j] ,wd[0] [j+l] ,wd[l] [j+l] , 
j jl, j j2,wd[2] [j+l] ,wd[2] [j] , jj5, jj6,0,0,0, jdim) ; 
breaJc ; 

} 

} /* next j */ 

jf0=jl0 ; jfl=jll ; jl0=jm0 ; jll=jml ; jmO=jO ; jml=jl ; 
m=lef; lef=mid; mid=rig; rig=m; 
p2=2 ; p3=3 ; goto nexti ; 

} /* end of case i==3 */ 

else { /* i>3 */ 
if ( jmO<=0) 
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3^Ai[mid] [1] ,td[rig] [0] , -1, td[mid] [0^^ 
I , td[mid] [jmO + 1] , td[rig] [jmO] , 



wd[p3] [0] =INTENS ( td [lef ] [0\ 
else 

wd[p3] [jmO] =INTENS(td[lef 1 , td[mid] [jmO + 1] , td[rig] [jmO] , 

td[mid] [ jmO-1] , td [mid] [ jmO] ) ; 

/* putpixel (idim-r_DIM, r_HI-jmin*r_DIM, wd [p3] [jmO] ) ; */ 
for(j=jmO + l,j dim=r_HI - ( jmO + 1 ) *r_DIM ; j < = jml ; j + + , jdim- = r_DIM) { 
if (j<m2) t=td[mid] [j+1] ; 
else t=-l; 

wd[p3] [ j] =INTENS (td (lef ] [jl ,t,td[rig] [j] ,td[mid] Ej-1) , td [mid] [j] ) ; 
/* putpixel ( idim-r_DIM, jdim, wd (p3] [ j ] ) ; */ 

for ( j=0; j< jmO; + ) { wd[p3] [j] =0; ) f or ( j = jml + 1 ; j < =m2 ; j + + ) { wd[p3] [j] =0; } 

jmin= min{jfO,jlO) ; jmax= max { j f 1 , j 1 1 ) ; 

f or ( j = jmin, j dim= jmin*r_DIM; j<=jmax-l; j ++ , j dim+=r_DIM) { 

if(j= = 0) { j j5 = 0; j j6 = 0; } else { j j 5 = wd [p2] [ j - 1] ; j j 6=wd [pi] [ j - 1] ; } 

if(j==m2-l) { j jl = 0; j j2 = 0; } else { j j l=wd [pi] [ j +2] ; j j 2 = wd [p2] [ j +2] ; } 

switch(TEST(wd[pl] [j] ,wd[p2] [j] ,wd[pl] [j+1] ,wd[p2] [j+1] ) ) { 
case ' ? ' : 

CHESS ( (i-3) *r_DIM, jdim, wd [pi] [j] ,wd[p2] [j] ,wd[pl] [j+1] ,wd[p2] [j+1] , 
j jlO j2,wd[p3] [j+lj ,wd[p3] [j] , jj5, jj6,wd[p0] [j] ,wd[pO] [j+1] ) ; 
brealc ; 

case ' 1 ' : 

GUR02 ( • - ' ,wd[pl] [j] , wd [p2] [j ] , wd [pi] [j+1] ,wd[p2] [j+1] , 
j jl, j j2,wd(p3] [j+1] ,wd[p3] [j] , j j5, j j6,wd[p0] [ j ] , 
wd[p0] [j+1] , (i-3) *r_DIM, jdim) ; 
brealc ; 

} 

} /* next j */ 
jfO=jlO / jfl=jll ; jlO=jmO ; jll=jml ; jmO=jO ; jml=jl ; 
f=^m=lef; lef=mid; mid=:rig; rig=m; 

m=pO ; pO = pl ; pl = p2 ; p2 = p3 ; p3=m ; 
} /* end of case i>3 */ 

j:t(i = =ml) { 
""■^ if ( jmO< = 0) 

Jl7d[p3] [0] =INTENS(td[lef ] [0] , td [mid] [1] , - 1 , - 1 , td [mid] [0] ) ; 
■Jlelse 

Swd[p3] [jmO] =INTENS (td [lef ] [ jmO] , td [mid] [ jmO+1] , -1 , td [mid] [ jmO-1] , 
td [mid] [ jmO] ) ; 

E /* putpixel (idim, r_HI- jmin*r_DIM, wd [p3] [jmO] ) ; */ 

Lkf or ( j =jmO+l , jdim=r_HI- ( jmO+1) *r_DIM; j <= jml ; j ++ , j dim--r_DIM) ( 
p-^ if(j<m2) t = td [mid] [ j +1] ; 

else t = -l; 

nl wd[p3] [j]=INTENS(td[lef] [j] , t , - 1 , td [mid] [j-1] , td [mid] [j] ) ; 

/* putpixel ( idim, jdim, wd [p3] [ j ] ) ; */ 
-S } 

^^for ( j=0; j<jm0; j+ + ) { wd[p3] [j] =0; } f or ( j = jml + 1 ; j < =m2 ; j + + ) ( wd [p3 ] [ j ] = 0 ; } 
j=Elin= min(jfO,jlO) / jmax= max ( j f 1 , j 1 1 ) ; 

f or ( j = jmin, jdim= jmin*r_DIM; j<=jmax-l; j ++ , j dim+=r_DIM) { 

if(j= = 0) ( j j5 = 0; j j6 = 0; ) else { j j 5 = wd [p2 ] [ j - 1 ] ; j j 6 =wd [pi ] [ j - 1] ; } 

if(j==m2-l) { j jl = 0; j j2 = 0; } else { j j l = wd [pi ] [ j +2] ; j j 2 = wd [p2] [ j +2 ] ; } 

switcli(TEST(wd[pl] [j] ,wd[p2] [j] ,wd[pl] [j+1] ,wd[p2] [j+1] ) ) ( 
case ' ? ' : 

CHESS ( (ml -2) *r_DIM , j dim, wd [pi ] [j] ,wd[p2] [j] ,wd[pl] [j+1] ,wd[p2] [j+1] , 
j jl, j j2,wd[p3] [j+1] ,wd[p3] [j] , j j5, j j6,wd[p0] [j] ,wd[pO] [j+1] ) ; 
break ; 

case " 1 ' : 

GUR02 ( ' - ' , wd [pi] [ j ] , wd [p2] [ j ] , wd [pi] [j+1] , wd [p2] [j+1] , 
j jl, j j2,wd[p3] [j+1] ,wd[p3] [ j] , j j5, j j6, wd[pO] [j] , 
wd [pO] [j+1] , (ml -2) *r_DIM, jdim) ; 
break ; 

} 

} /* next j */ 
jmin= min(jm0,j0) ; jmax= max(jml,jl); 

f or ( j = jmin, j dim= jmin*r_DIM; j<=jmax-l; j ++ , j dim+=r_DIM) { 

if(j= = 0) ( j j5 = 0; j j6 = 0; } else { j j 5 = wd [p3 ] [ j - 1 ] ; j j 6 =wd [p2] [ j - 1 ] ; } 

if (j==m2-l) {jjl = 0;jj2 = 0;} else { j jl = wd[p2] [j+2] ; j j2==wd[p3] [j+2] ; } 

switch (TEST (wd[p2] [j] ,wd[p3] [j] ,wd[p2] [j+1] ,wd-[p3] [j+1] ) ) { 
case ' ? ' : 
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CHESS ( (ml-1) *r_DIM Jdi^^i[p2] [j] ,wd[p3] [j] ,wd[p2) [j+l] ,wd^J^[j+l] , 
j jl, j j2,0,0, j j5, jj6,wd^B[j] ,wd[pl] [j + l] ) ; 
break ; 

case ' 1 ' : 

GUR02 ( ' - ' , wd (p2] ( j ] , wd [p3] { j ] , wd lp2] [ j + l] , wd[p3] ( j+l] , 

jjl, jj2,0,0, j j5, jj6,wd[pl] [j] ,wd[pl] [j+l] , (ml-1) *r_DIM, j dim) ; 
brealc ; 

} 

} /* next j */ 
} /* end of case i==ml */ 

nexti: xO+=ul ; y0+=u2 ; 
} /* next i */ 
if (r_COLl ! =0) { //!! Frame ?? 
/* 

setcolor (r_COLl) ; set 1 inestyle ( SOLID_LINE , 0 , NORM_WIDTH) ; 
line (un2 , r_HI -vn3 , un2 , r_HI ) ; 
line (un2 , r_HI -vn3 , 0 , r_HI+vn2-vn3 ) ; 
line (un2, r_HI-vn3 ,NX [8] ,NX[7] ) ; 
*/ 



// Finisli 

f or ( i=l ; i<4 ; i++) r_Leye [ i] *=r_ALscale [ i] ; 
cloc}c_end=cloc)c ( ) ; 

return (double) ( cloc]c_end-clock_start ) /CLOCKS_PER_SEC ; 

} 

TEST: test surface presence inside a square 

*§ * ******************************************************************** 
agar RayTracer :: TEST ( int wl , int w2 , int w3 , int w4 ) 

.! if(wl< = 0) 

a? { 

■il'J if( (w2< = 0) && (w3< = 0) ScSc (w4< = 0) ) return ('o'); 

m IS [0] [0] =-1; 

return ('?'); 

1=2: else 

zr, if( (w2>0) ScSc (w3>0) && (w4>0) ) return('l'); 

ry IS [0] [0] =1; 

'"=:J return ('?'); 



/ 



******************************************************* 



* Initialize picture parameters 
★ 

************************************************** 
bool RayTracer :: PICTURE ( cliar liow) 

{ 

int i , ml , m2 , nx [ 14 ] ; 

double xa[4] , a , b, c , ul , u2 , vl , v2 , v3 , du, unl , un2 , vnl , vn2 , vn3 ; 

for ( 1=1 ; i<4 ; i++) Na [i] =r_N [i] *r_ALscale [i] ; 

if (liow== ' Y' ) 

{ 

f or ( i=l ; i<4 ; i++) {xa [i] =f abs (r_AL scale [i] /r_Leye [i] ) ; } 
b= max { xa [ 2] , xa [ 3 ] ) ; 

a= min( FIL/sqrt ( max (xa [ 1] *b , xa [2] *xa [3] ) ) , 15000./ max(xa[l],b) 

f or ( i = 1 ; i < 4 ; i + + ) 

{ 

IL [i] =- (int) max (0. 5+a*xa [i] ,50) ; 

r_Leye [i] = (100 . *r_ALscale [i] ) /IL [i] ; 

} 

} 

else 

{ 
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k 1^1^^* ****************************** *^^Uf * 



} 

/•********■*************■****** iTmric ******************************** if^Pi^ * * * * 
* 

* update Ruler pop-up menu 



*************************************************** 
void Ruler :: UpdatePopMenu (CMenu *pop) 

( 

Get Length ( ) ; 
if (r_pix_spacingX<0 . 0) 

( 

pop- >EnableMenuI tern { ID_RULER_MM,MF_GRAYED) 
pop->EnableMenuItem( ID_RULER_CM,MF_GRAYED) 
pop - > Enab leMenu 1 1 em ( I D_RULER_I N , MF_GRAYED ) 
pop->CheckMenuItem ( ID_RULER_PIXELS , MF_CHECKED) ; 

} 

else 
{ 

if (r_scale=="mm" ) pop- >CheckMenuI tern ( ID_RULER_MM , MF_CHECKED ) ; 
else if (r_scale=="cm" ) pop- >CheckMenuI tern ( ID_RULER_CM , MF_CHECKED ); 
else if (r_scale = = ''in") pop- >CheckMenuI tern ( ID_RULER_IN , MF_CHECKED ); 
else pop->CheckMenuItem(ID_RULER_PIXELS,MF_CHECKED ) ; 

) 

CString value; 

value . Format ( " % . 21f " , r_length) ; 

pop->ModifyMenu ( ID_RULER_VALUE , MF_BYCOMMAND , ID_RULER_VALUE , value+r_scale ) 

} 

********************************************************************* 

*,f^ 

Compute distance in pixels 

*i|^ ********************************************************************/ 

vTsid Ruler : :GetLength ( ) 
~Z r_size=r_end-r_start ; 

UJ r_pix_length=_hypot ( r_size . cx , r_size . cy) ; 
flj if (r_scale = = "pixels" ) 

r_length=r_pix_length; 

^ else 

r_length=r_scale_coef f *_hypot (r_size . cx*r_pix_spacingX , 
f% r_size . cy*r_pix_spacingY) / ( *r_zoom) ; 

/ tH^* ******************************************************************** 
* 

* "^"^ Increment or dicrement the number of tick marks if d!=0 
* 

***********************************************************************/ 

void Ruler : rChangeTicksAndStyle (CDC *pDC, int d) 

{ 

if (! reactive) return; 

if (d!=:0) // change number of tick marks 

{ 

int newticks=r_ticks+d; 
if (newticks<0) newticks=0; 
else if (newt icks>10) newticks=10; 
if (newt icks==r_ticks) return; 

i f ( r_undo ) Dr a w ( pDC ) ; 
r_t icks=newt icks ; 
Draw(pDC) ; 



/*********************************************************************** 
* 

* Set distance scale 
* 

***********************************************************************/ 
void Ruler :: SetScale ( int code) 
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if ( r_pix_spacingX< 0 , 0 ) ^^^P=^' 

switch (code) 

{ 

case 1 : 

r_scale= "mm" ; 

r_scale_coef f =1 . 0 ; 

break, - 
case 2 : 

r_scale= " cm" ; 

r_scale_coef f =0 . 1 ; 

breaks- 
case 3 : 

r_scale= " in" ; 

r_scale_coef f =1 .0/25.4; 

break ; 
case 4 : 

r_scale= "pixel s " ; 

r_scale_coef f = 1 . 0 ; 

break ; 

} 



ft 

o 
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r^^^k Selector class. 

nWi I / 1 1 1 1 1 / 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 n / 1 1 



If Selector. h: interface forj 
// 

1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 11 1 rWl 1 1 1 1 1 1 1 / 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 17WI / 1 



! defined (AFX_SELECTOR_H 4E54B6 53_BCCC_11D2_95F9_00105A21774F INCLUDED_) 

#def ine AFX_SELECTOR_H 4E54B6 53_BCCC_11D2_95F9_0 010 5A21774F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

# define SEL_RECTANGLE 0 
#define SEL_ELLIPSE 1 

class Selector 

{ 

publ ic : 

bool m_undo, m_active; 
int m_shape; 

void Redraw(CDC *pDC, const CPoint& center, 

const CPointfic vertex, const CRect& client); 
void Redraw (CDC *pDC, const CPointt center) ; 
void Remove (CDC *pDC) ; 

void Initialize (CDC* pDC, const CPoint& center, double* zoom, 

double scaleX, double scaleY, int shape=0) ; 
CString toStringO; 
CRect GetRect ( ) ; 
Selector ( ) ; 
virtual -Selector () ; 

priivate : 

double m_scaleX, m_scaleY, m_area; 
U' double * m_zoom; 
CRect m_RectSel; 

void Draw(CDC* pDC) ; 
void Clean ( ) ; 

#yfidif // ! defined (AFX_SELECTOR_H 4E54B653_BCCC_11D2_95F9_00105A21774 F INCLUDED_ 
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bi^^^of the Selector class. 

f^TtlHII/fl/llHllllllfllllllllllll^ll 



II Selector . cpp : implementat^ 
// 

1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 nri 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 irm 1 1 

^include "stdafx.h" 
^include "DCM.h" 
^finclude "Selector.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG_NEW 
^endif 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
Selector: :Selector() 

{ 

m_shape=SEL_RECTANGLE ; 
Clean 0 ; 



Selector: :-Selector() 

{ 



************************************************************* 

-^■^ Functions to Draw and Update Selector rectangle 

vcu-d Selector :: Initialize (CDC *pDC, const CPoint& center, double* zoom, 
'i3 double scaleX, double scaleY, int shape) 

inJ : 

^ m_act ive= true ; 
5 . m_undo=true ; 

m_shape = shape ; 
O if {m_shape ! =SEL_ELLIPSE) m_shape=SEL_RECTANGLE ; 

m if {scaleX!=0.0) 

{ 

; m_scaleX=m__scaleY=scaleX ; 

tsl if (scaleY ! =0 . 0) m_scaleY=: scaleY ; 

J 

if (zoom) m_zoom=zoom; 

m_RectSel=CRect (center .x-128 , center . y- 128 , center . x+127 , center . y+1 27 ) ; 
Draw (pDC) ; 

} 

void Selector : :Draw (CDC *pDC) 

{ 

int dmode; 

CPen* old_pen = pDC- >SelectOb j ect ( SctheApp . app_Pen) ; 

switch (m_shape) 

{ 

case SEL_RECTANGLE: 

dmode=SetR0P2 (pDC->m_hDC, R2_N0T) ; 

pDC->MoveTo (m_RectSel . TopLef t ( ) ) ; 

pDC- >LineTo (m_RectSel .right , m_RectSel . top) ; 

pDC- >LineTo (m_RectSel .right , m_RectSel .bottom) ; 

pDC- >LineTo (m_RectSel . lef t , m_RectSel . bottom) ; 

pDC- >LineTo (m_RectSel , TopLef t () ) ; 

SetR0P2 (pDC->m_hDC, dmode) ; 

break ; 
case SEL_ELLIPSE: 

dmode=SetROP2 (pDC->m_hDC, R2_NOT) ; 

pDC->Arc (m_RectSel ,m_RectSel . TopLef t ( ) ,m_RectSel . TopLef t () ) ; 
SetROP2 (pDC->m_hDC, dmode) ; 
break ; 

) 
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pDC- >SelectObject (old_pe| 

} 

void Selector : :Remove (CDC *pD^ 

{ 

if (m_undo) Draw(pDC); 
Clean 0 ; 

} 

void Selector : :Redraw(CDC *pDC, const CPoint& center, 

const CPoint& vertex, const CRect& client) // resize 

{ 

if ( ! m_act ive) return; 

if(m_undo) Draw(pDC); // undo old selection 

CPoint z=vertex-center ; 

int a= (abs (z . x) ) ; if(a<16) a=16; 

int b= (abs (z .y) ) ; if(b<16) b=16; 

m_RectSel=CRect (center .x -a, center .y-b, center .x+a, center .y+b) ; 

m_RectSel . Inter sect Rect (m_RectSel , client ) ; 

m_RectSel . Normal izeRect ( ) ; 

if (m_RectSel . IsRectEmpty ( ) ) return; 

Draw(pDC) ; // show new selection 

m_undo=true ; 

) 

void Selector :: Redraw (CDC *pDC, const CPoint& center) // move 

{ 

if ( ! m_act ive) return; 

if (m_undo) Draw(pDC); // undo old selection CRect 
m_RectSel . Of f set Rect ( -m_RectSel . Center Point ( ) +center) ; 
Draw(pDC); // show new selection 
m_undo=true ; 

%I3 Reset selector 

* *************************************************************************** 

Selector: :Clean() 

' - m_u 

s m_scaleX=m_scaleY= - 1 . 0 ; 

i;L m_area = 0 . 0 ; 

f^tL double x=1.0; m_zoom = Scx ; 

'ri m RectSel = CRect (0, 0, 1, 1) ; 

H 

Return Selector region 

* 

**********************************************************************************/ 

CRect Selector :: GetRect ( ) 

{ 

return m_RectSel; 

} 

* 

* Return Selector info 
* 

CString Selector :: toString () 
{ 

CString info; 
CString unit s= " pixels " ; 
double dx=m_RectSel,Width() ; 
double dy=m_RectSel , Height ( ) ; 
if (m_scaleX>0 && (*m_zoom)>0) 

{ 

uni ts= "mm" ; 

dx = m_scaleX*dx/ ( *m_20om) ; 
dy = m_scaleY*dy/ ( *m_zoom) ; 

} 

if (m_shape==SEL_RECTANGLE) m_area=4 . 0*dx*dy; 

2 



m_active= false ; 
m undo=false; 



else /* ellipse */ 



Selector. cpp 10/27/00 
^^^_area^3 . 14 15926 *dx*dy ; 

re^^ %.21f %s2, %.21fx%.21f %s",m arS^n 



info . Format ( "Selected are^^ %.21f %s2, %.21fx%.21f %s m_argl^inits , dx , dy , units) 
return info; 
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#if ! def ined (AFX_SOUNDDIALOa 
#define AFX SOUNDDIALOG H 7! 




»750A3131_C0BF_11D2_96 01_00105A2 
!l31 COBF 11D2 9601 00105A21774F 




_INCLUDED_) 
,UDED 



#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// SoundDialog . h : header file 

// 

^include <mmsystem . h> 



///////////////////////////////////////////////////////////////////////////// 



// Construction 
public : 

CString GetWavFi leName ( ) ; 

SoundDialog (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { {AFX_DATA( SoundDialog) 

enum { IDD = IDD_SOUND_DIALOG }; 

// NOTE: the ClassWizard will add data members here 
// } }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
p // ( (AFX_VIRTUAL (SoundDialog) 
protected: 

J; virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 
0' virtual BOOL OnNot if y ( WPARAM wParam, LPARAM iParam, LRESULT* pResult) ; 
J J // } }AFX_VIRTUAL 

//.! Implementation 
p^tected : 

r^l // Generated message map functions 

//{ (AFX_MSG (SoundDialog) 
- afx_msg void OnSoundPlay ( ) ; 

virtual BOOL Onini tDialog ( ) ; 
f's afx_msg void OnSoundRecord ( ) ; 
^\ afx_msg void OnSoundStop ( ) ; 

II] }afx_msg 
'''==J declare_message_map ( ) 

pig-jvate : 

bool MakeFormatList ( ) ; 

MMRESULT I sFormat Supported (LPWAVEFORMATEX pwfx, UINT uDevicelD) ; 

bool SetWaveFormat { ) ; 

bool CloseMCI () ; 

bool SavetoFileO; 

bool m_Opened; 

MCI_0PEN__PARMS m_Device; 

CString m_info; 

CString ErrorMCI (DWORD e, CString intro=CStr ing ( " " ) ) ; 
bool OpenMCI () ; 
CString m_FileName; 



//{ (AFX_INSERT_L0CATI0N} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#endif // ! def ined ( AFX_SOUNDDIALOG_H 75 0A3 13 7_C0BF_11D2_96 01_0010 5A21774F INCLUDED__) 



// SoundDialog dialog 




public CDialog 



1 



SoundDialog . cpp 10/27/00 

// SoundDialog . cpp implemej^^^ion file 
// 

#include "stdafx.h" 
# include "DCM.h" 
^include " SoundDialog . h" 

iJifdef _DEBUG 
**define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

// SoundDialog . cpp : implementation file 
// 

#include <mmreg.h> 
#include <msacm.h> 

///////////////////////////////////////////////////////////////////////////// 
// SoundDialog dialog 



SoundDialog :: SoundDialog (CWnd* pParent /*=NULL*/) 
: CDialog ( SoundDialog :: IDD, pParent) 

{ 

// { (AFX_DATA_INIT (SoundDialog) 

// NOTE: the ClassWizard will add member initialization here 
// } }AFX_DATA_INIT 

} 



v©ad SoundDialog :: DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
4} 1 1 { {AFX_DATA_MAP (SoundDialog) 

\\ 11 NOTE: the ClassWizard will add DDX and DDV calls here 

/ / } } AFX_DATA_MAP 

t\ \ 

bM6iN_MESSAGE_MAP (SoundDialog, CDialog) 
^ // { (AFX_MSG_MAP (SoundDialog) 

M 0N_BN_CLICKED ( IDC_SOUND_PLAY, OnSoundPlay) 

n ON_BN_CLICKED ( IDC_S0UND_REC0RD, OnSoundRecord) 

n\ ON_BN_CLICKED ( IDC_SOUND_STOP, OnSoundStop) 

ON_MESSAGE(MM_MCINOTIFY, OnNotify) 
N // } }AFX_MSG_MAP 
Ems MESSAGE MAP ( ) 

— 

/^/////////////////////////////////////////////////////////////////////////// 

// SoundDialog message handlers 
* 

* Play *,wav file 
* 

************************************************************************ 
void SoundDialog :: OnSoundPlay ( ) 

{ 

PlaySound(m_FileName,NULL, SND_FILENAME) ; 

} 



* 

* Initialize dialog 
* 

***************************************************** 
BOOL SoundDialog :: OnlnitDialog ( ) 

{ 

CDialog: : OnlnitDialog ( ) ; 
m_Opened=f alse 

m_FileName=CString ( " sound. wav" ) ; 
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return TRUE; 

) 

/*************** 

* 

* Record sound 
* 

void SoundDialog: :OnSoundRecord ( ) 
{ 

DWORD dwReturn; 

// Open a waveform-audio device with a new file for recording, 
if ( !OpenMCI 0 ) return; 




// Set recording parameters 
//SetWaveFormat ( ) ; 



MCI_RECORD_PARMS mc iRecordParms ; 
// Record 

mciRecordParms . dwFrom = 0; 
mciRecordParms . dwTo = 1000; 

mciRecordParms . dwCallback = (DWORD) ( this- >GetSafeHwnd ()) ; 
BeepOOO, 100) ; 

if (dwReturn = mciSendCommand (m_Device . wDevicelD , MCI_RECORD, 
MCI_FROM I MCI_NOTIFY, (DWORD) (LPVO ID) ScmciRecordParms ) ) 

{ 

AfxMessageBox (ErrorMCI (dwReturn, "Recording error: ")); 
mciSendCommand (m_Device .wDevicelD, MCI_CLOSE, 0, NULL); 
return ; 

) 

return; 



fli 

»• 

IQ Stop recording/playing 

************************************************************************ 
iMid SoundDialog :: OnSoundStop ( ) 

k 

DWORD dwReturn; 
U'. MCI_GENERIC_PARMS genericParms ; 

'^^ genericParms. dwCallback = (DWORD) thi s- >GetSafeHwnd () ; 

nJ if (dwReturn = mciSendCommand (m_Device . wDevicelD, MCI_STOP , MCI_WAIT , (DWORD) ( LPVOID) &genericPar 

'^f AfxMessageBox (ErrorMCI (dwReturn, "Stop error: ")); 

P mciSendCommand (m_Device.wDeviceID, MCI_CLOSE, 0, NULL); 

} 

// Save and close MCI 
Beep (500 , 100) ; 
SavetoFile ( ) ; 
CloseMCI 0 ; 



* 

* Catch MM_MCINOTIFY 
* 

****************************************************************************/ 
BOOL SoundDialog: :OnNotify(WPARAM wParam, LPARAM iParam, LRESULT* pResult) 
{ 

//AfxMessageBox ("On Notified") ; 
return TRUE; 

} 



/****************** 

* 

* Open MCI device 
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bool SoundDialog : :OpenMCI ( ) 

{ 

DWORD dwReturn; 

// Open a waveform-audio device with a new file for recording. 
m_Device . IpstrDeviceType = " waveaudio" ; 
m_Device . IpstrElementName = 

if (dwReturn = mciSendCommand ( 0 , MCI_OPEN, MCI_OPEN_ELEMENT | MCI_OPEN_TYPE , 

(DWORD) (LPVOID) &m_Device) ) 

{ 

AfxMessageBox (ErrorMCI (dwReturn, "Open device error: ")); 
m_Opened= false ; 
return false,- 

} 

m_Opened=true ; 
return true; 



* 

* Report MCI error 
* 

****************************************************************************/ 
CString SoundDialog :: ErrorMCI ( DWORD e, CString intro) 

{ 

CString info; 
char ebuf f er [200] ; 

~e if{! mciGetErrorString (e , ebuf fer , 200) ) info . Format (" Unknown error"); 
*y:J else inf o=intro+CString (ebuf f er) ; 
gi inf o . TrimRight ( ) ; 
return info; 

fi 

4U Save MCI recording into a file m_FileName 

b^x>l SoundDialog :: SavetoFile ( ) 
(Li 

flJ DWORD dwReturn; 

S\ MCI_SAVE_PARMS mciSaveParms ; 

mciSaveParms . Ipfilename = m_FileName; 

if (dwReturn = mciSendCommand (m_Device , wDevicelD, MCI_SAVE, 
B MCI_SAVE_FILE | MCI_WAIT, (DWORD) (LPVOID) &mciSaveParms ) ) 

{ 

AfxMessageBox (ErrorMCI (dwReturn, "Save file error: ")); 
return false; 

) 

return true; 

} 



* 

* Close MCI device 
* 

************************************************************ 
bool SoundDialog :: CloseMCI ( ) 

{ 

DWORD dwReturn; 

if (dwReturn = mciSendCommand (m_Device . wDevicelD, MCI_CLOSS , 0 , NULL) ) 

{ 

AfxMessageBox (ErrorMCI (dwReturn, "Close error: ")); 
mciSendCommand (m_Device . wDevicelD, MCI_CLOSE, 0, NULL); 

) 

return true ; 
m_Opened= false ; 
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} 

bool SoundDialog :: SetWaveFormacl ) 
{ 

/* 

DWORD dwReturn; 

MC I_WAVE_SET_PARMS mwspWave FormParame t er s ; 

mwspWaveFormParameters . wFormatTag=0x0002 ; //WAVE_FORMAT_DSPGROUP_TRUESPEECH ; //WAVE_FORMAT_AD 
PCM ; 

if (dwReturn=mciSendCommand (m_Device . wDevicelD , MCI_SET , 
MCI_WAIT I MCI_WAVE_SET_FORMATTAG , 
(DWORD) (LPVOID) StmwspWaveFormParameter s ) ) 

I 

AfxMessageBox (ErrorMCI (dwReturn, "Set parameters error: ")); 
mciSendCommand(m_Device.wDeviceID, MCI_CLOSE, 0, NULL) ; 

} 

*/ 

Make Format Li St () ; 



UINT wReturn; 

PCMWAVEFORMAT pcmWaveForma t ; 

// Set up PCMWAVEFORMAT for 11 kHz 8-bit mono. 

pcmWaveFormat . wf .wFormatTag = WAVE_FORMAT_PCM ; 

pcmWaveFormat . wf . nChannels = 1 ; 

pcmWaveFormat . wf . nSamplesPerSec = 11025L; 

pcmWaveFormat . wf . nAvgBytesPerSec = 11025L; 

pcmWaveFormat . wf . nBlockAlign = 1; 

pcmWaveFormat . wBitsPerSample = 8; 
O // See if format is supported by any device in system. 

wReturn = I sFormatSupported ( ( WAVEFORMATEX* ) &pcmWaveFormat , WAVE_MAPPER) ; 
2^ // Report results. 
'^^ if (wReturn =- 0) 

-i1 Af xMessageBox ( " 11 kHz 8-bit mono is supported."); 

Vj else if (wReturn == WAVERR_B AD FORMAT) 

zl Af xMessageBox ( " 11 kHz 8-bit mono NOT supported."); 

'^f else 

-ij Af xMessageBox (" Error opening waveform device."); 



return true; 



} 

MMRESULT SoundDialog :: I sFormatSuppor ted ( LPWAVEFORMATEX pwfx, UINT uDevicelD) 
{ 

return (waveln0pen( 

NULL, // ptr can be NULL for query 

uDevicelD, // the device identifier 

pwfx, // defines requested format 

NULL, // no callback 

NULL, // no instance data 

WAVE_FORMAT_QUERY) ) ; // query only, do not open device 

) 

bool SoundDialog: : MakeFormatList () 

{ 

CString info; 

int m_iNumDevs=waveInGetNumDevs ( ) ; 
if (m_iNumDevs==0 ) 

{ 

Af xMessageBox ( "No input devices found"); 
return false; 

} 

WAVEINCAPS* m_pDevCaps = new WAVEINCAPS [m_iNumDevs] ; 
for (int i=0; i<m_iNumDevs ; i++) 
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cra^BvCaps [i] , sizeof (WAVEINCAPS) } ; 
: wPid=%x , \n szPname = %s\n dwFormats^Kd 



wavelnGetPevCaps ( i , 6cr; | 

info. Format ( "wMid=%x, \Tr'wPid=%x, \n szPname = %s\n dwFormat s'^n^dXn wChannel s = % Id" , 

m_pDevCaps [ i] . wMid, m_pDevCaps [ i] .wPid, 

m_pDevCaps [ i] . szPname , m_pDevCaps [ i ] .dwFormats, 

m_pDevCaps [ i] .wChannels) ; 
Af xMessageBox ( inf o) ; 

} 

return true; 



/* 

I used this call to open a MM handle for sample recording 

WAVEFORMATEX wINEX; 
WAVEIN WIN; 

wINEX. wFormatTag = WAVE_FORMAT_PCM ; 
wINEX.nChannels = 2; 
wINEX . nSamplesPerSec = 16000; 
wINEX. wBitsPerSample = 8; // 8,16 

wINEX.nBlockAlign = ( wINEX . wBitsPerSample * wINEX.nChannels) / 8; 
wINEX . nAvgBytesPerSec = wINEX . nSamplesPerSec * wINEX.nBlockAlign; 
wINEX.cbSize = 0; 

f = waveln0pen( 
&wIN, 

tJ|^VE_MAPPER, 
fi^INEX, 

^insigned long) wavelnProc , 
dKLLBACK_FUNCTION) ; 

y, J 

iSjdecided to use ADPCM for a better compression , but if I select WAVE_FORMAT_ADPCM to wFormatTag 
,,.:^the wavelnOpen returns an error code : 32 . What's happening ? 

of course , if you have a suggestion for a better compression , tell me . 

Thanks 

f 1 

t \^ 

Acrcepted Answer 

ES"i>m: chensu Date: Sunday, August 02 1998 - 07:30PM PDT 

You need to set the WAVEFORMATEX properly. For example, 

// Format Tag: WAVE_FORMAT_ADPCM 
// Channels : 1 

// Samples Per Second: 11,025 
// Avg Bytes Per Second: 5,666 
// Block Alignment: 256 
// Bits Per Sample: 4 

// Extra Format Information: 32 bytes 
// Offset Data Bytes 

0xF4 , 0x01, 0x07, 0x00, 0x00, 0x01, 0x00, 0x00, 

0x00, 0x02, 0x00, OxFF, 0x00, 0x00, 0x00, 0x00, 

OxCO, 0x00, 0x40, 0x00, OxFO, 0x00, 0x00, 0x00, 

OxCC, 0x01, 0x30, OxFF, 0x88, 0x01, 0x18, OxFF 

You may use an utility to convert a PCM wave file to an ADPCM wave file. Then, use the Riff Walk ut 
ility (it comes with the Platform SDK) to see its header information. 



*/ 

CString SoundDialog: : GetWavFi leName ( ) 

{ 

CString filename=" "; 
CFile file; 
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if( ! file . Open {m_FileNam^^fcFi le :: modeRead) ) 

W 

Af xMessageBox ( "Cannot^^cate sound file"); 



) 

else 

{ 

f ilename=f ile . GetFilePath ( ) ; 
file .Close ( ) ; 

1 

return filename; 



J5 
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#if !def ined(AFX_STATI STICS_K^to76 70Bl_C129_llD2_8051_000 000000 Q^^INCLUDED_) 
#def ine AFX_STATISTICS_H 6D^^p5l_Cl 29_1 1D2_8051_00 00 0000 00 00_^^PDDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 100 0 

#include " Image/ Image . h" 

// Statistics, h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// Statistics dialog 

class Statistics : public CDialog 

{ 

// Construction 
public : 

int* st_Hist; 

long st_n; 

double st_min, st_max, st_Avg, st_StDev; 
CPoint St HistMax; 



void Clean ( ) ; 

bool Analyze ( Image* pBmp, CRect* roi=NULL, int shape=0, 

double scaleX=-1.0, double scaleY- - 1 . 0 ) ; 
CString toStringO; 
-Statistics ( ) ; 

Stat istics (CWnd* pParent = NULL); // standard constructor 

/il Dialog Data 

gi // { {AFX_DATA( Stat istics) 

enum { IDD = IDD_STATI STICS_DIALOG }; 

CString st^numStr ing ; 

CString st_si2eString / 

//}}AFX_DATA 

/^J'J Overrides 

2 // ClassWizard generated virtual function overrides 
Li, //{ (AFX_VIRTUAL( Statistics) 
LI protected: 

CJ virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 
pj // } }AFX_VIRTUAL 

V. \ 

fil. iTnplementat ion 
fi^tected : 

// Generated message map functions 
//( {AFX_MSG{ Statistics) 
virtual BOOL Onini tDialog ( ) ; 
afx_msg void OnPaint(); 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

int st__shape; 
long st_HistSum; 

double st_area, st_scaleX, st_scaleY; 
CString st_units; 
CRect st_Rect; 

void PaintHistog (CDC* pDC, CRect r) ; 

}; 

// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#endif // ! def ined ( AFX_STATISTICS_H 6D76 70B1_C12 9_11D2_8051_000000000000 INCLUDED_) 
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// Stat ist ics . cpp implement^^^pn file 
// 

^include "stdafx.h" 

#include "DCM.h" 

# include "Statistics . h" 

^itdet _DEBUG 
^tdefine new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[) = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// Statistics dialog 

Statistics :: Statist ics (CWnd* pParent /*=NULL*/) 
: CDialog (Stat istics : : IDD, pParent) 

{ 

// { {AFX_DATA_INIT (Statistics) 
st_numString = _T ( " " ) ; 
st_sizeString = _T ( " " ) ; 
st_StDev = 0.0; 
// ) }afx_data_init 

st_Hist=0; 
Clean 0 ; 

} 

Statistics: : -Statist ics ( ) 
t3 

..^ Clean ( ) ; 

U 



d Statistics : :DoDataExchange (CDataExchange* pDX) 



if] CDialog: : DoDataExchange (pDX ) ; 

^/z //{ {AFX_DATA_MAP (Statistics) 

'''•^ DDX_Text (pDX, IDC_STAT_AVG, st_Avg) ; 

s DDX_Text (pDX, IDC_STAT_MAX , st_max); 

|=s: DDX_Text (pDX, IDC_STAT_MIN , st_min) ; 

^ DDX_Text (pDX, IDC_STAT_NUM , st_numString) ; 

'^i DDX_Text (pDX, IDC_STAT_S I ZE , st_sizeString) ; 

lU DDX_Text (pDX, IDC_STAT_STD , st_StDev) ; 

vj // } }afx_data_map 



BEGIN_MESSAGE_MAP (Statistics, CDialog) 
// { {AFX_MSG_MAP (Statistics) 

on_wm_paint() 
// } }afx_msg_map 
end_message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 
// statistics message handlers 

/*************************************************************************** 

* 

* Assign 0 to all statistical parameters 
* 

************************** 

void Statistics : .-Clean 0 

{ 

st_shape=0; // rectangle by default 

St_Avg=0 . 0 ; 

st_max=0 . 0 ; 

s t_min=0 . 0 ; 

st_n=0 ; 

st_StDev=0 . 0 ; 

st_scaleX=st_scaleY= - 1 . 0 ; 

st_area=0 . 0 ; 

st_units= "pixels" ; 

St Rect=CRect (0 , 0, 0 , 0) ; 
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st_HistMax=CPoint (0,0) ; 
st_HistSum=0 ; 
if (st_Hist) 
{ 

delete [] st_Hist; 
st_Hist^O; 

} 

} 
* 

* Output string for the status bar 
* 

***************************************************** 

CString Statist ics :: toString ( ) 

{ 

CString cs; 

cs . Format Id points: [ % . Olf , % . Olf ] range, avg = %.3lf, dev = %.3lf'\ 
st_n, st_min, st_max, st_Avg, st_StDev) ; 

return cs; 

} 

/*************************************************************************** 
* 

* Perform statistical analysis of the given region in the given image 
* 

***************************************************************************/ 

bool Statist ics :: Analyze ( Image *pBmp,CRect* roi, int shape, double scaleX, double scaleY) 

{ 

long X, y, dx, dy, p, xO, yO , a, b, ab; 
™ double temp; 

Ul // Clean all statistical info 

yl Clean 0 ; 

,£>^ st_shape=: shape ; 

if (scaleX>0.0 && scaleY>0.0) 

{ 

-iJ st_scaleX=scaleX ; st_scaleY= scaleY ; 

ifl ^ t_un i t s = " mm " ; 

s // Set image region 

l,L if ( ! roi) st_Rect=CRect (0,0, pBmp- >Get Width ( ) - 1 , pBmp- >Ge tHeight ( ) -1) ; 
else st_Rect . CopyRect (roi ) ; 
st_Rect . NormalizeRect ( ) ; 

Vj // Validate 

st_Rect . IntersectRect ( st_Rect , CRect (0,0, pBmp- >Get Width ( ) -1 , pBmp- >Ge tHeight ( ) -1) ) ; 
st_Rect . NormalizeRect () ; 
CJ if ( st_Rect . I sRectEmpty ( ) ) return false; 

// Find statistics 

// 1, Average, range and number of points 

st_min=pBmp- >Get Pixel ( st_Rect . lef t , st_Rect .top) ; st_max= st_min ; 

st_Avg=0,0; st_n=0; 

if ( st_shape== 1 ) // ellipse 

{ 

xO= ( st_Rect . lef t+st_Rect . right) /2 ; a=st_Rect . right -xO ; 
a *= a; if{a==0) a=l; 

yO= ( st_Rect . top+st_Rect . bottom) /2 ; b=st_Rect . bottom-yO ; 

b *= b; if (b==0) b=l; 

ab=a*b; 

} 

f or (x=st_Rect . lef t ; x< st_Rect . right ; x++) 

{ 

f or (y=st_Rect , top; y< st_Rect . bottom; y++) 

{ 

if ( st_shape==l) // ellipse 

{ 

if (b* (x-xO) * (x-xO) +a* (y-yO) * (y-yO) >ab) continue; 

} 

p = pBmp- >GetLuminance (x , y) ; 
st_Avg += p ; 
if(p>st_max) st_max=p; 
else if {p<st_min) st_min=p; 




2 



statistics. cpp 



10/27/00 



st_n -f+; 

) 

} 

if(st_n<=0) return false; 
st_Avg /= st_n; 
st_area=st_n; 

if ( st_unit s== "mm" ) st_area ( st_scaleX* st_scaleY) ; 
// 2. Standard deviation and histogram 
dx=st_Rect. Width 0 /80; if (dx< = a) dx=l; 

dy=st_Rect .Height 0 /SO; if (dy< = 0) dy3i; 

try { st_Hist=new int [ ( int ) ( st_max ) +1 ] ; } 
catch (...) 

{ 

Af xMessageBox ( " Low memory, cannot allocate image histogram", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

} 

if ( ! st_Hist) 
{ 

Af XMessageBox ( "Low memory, cannot allocate image histogram", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

} 

for(p=0; p<-st_max; p++) st_Hist [p] =0 ; 
st_StDev=0 . 0 ; st_HistSum=0 ; 

for {x=st_Rect . left ; x< st_Rect . right ; x dx) 

( 

f or (y=st_Rect . top; y< st_Rect . hot torn; y += dy) 
'^f if ( st_shape = = l ) // ellipse 

Ql if {b* (x-xO) * (x-xO) +a* (y-yO) * (y-yO) >ab) continue; 

'"^^ p=pBmp- >GetLuminance (x , y ) ; 

st_Hist [p] ++; 
if J temp=p- st_Avg ; 

st_StDev +~ temp* temp; 
2t st_HistSum ++; 

7 } ' 

if ( st_HistSum< = 0 ) return false; 

st_StDev = sqrt { st_StDev/st_HistSum) ; 
i=J // 3. Find histogram pick (maximum) 
pj st_HistMax=CPoint (0 , 0) ; 
i! for(p=0; p<st_max + l; p+ + ) 

{ 

y if (st_Hist [p] >st_HistMax.y) 

st_HistMax . x=p; 
st_HistMax .y=st_Hist [p] ; 

} 

} 

return true; 

} 

* — 

* Initialize dialog 
★ 

BOOL Stat ist ics : : OnlnitDialog ( ) 

( 

if ( st_units-= "pixels" ) 

{ 

st_sizeString . Format (" %d<x<%d, %d<y<%d pixels", st_Rect . lef t - 1 , st_Rect . r ight+1 , 

st_Rect . top- 1 , st_Rect . hot tom+1) ; 
st_numStr ing . Format ( " %ld" , st_n) ; 

} 

else /* mm */ 
{ 

double x0= (st_Rect . lef t-1) *st__scaleX; 
double xl= (st_Rect . right +1) *st_scaleX; 
double y0= ( st_Rect . top- 1 ) *st_scaleY; 




3 



statistics . cpp 



10/27/00 



3G^^ni+l) *st_scaleY; 

:^BtLlf<x<%. llf , %. llf<y<%. llf mm", ^Hl 
{♦•^ra, Area: %.llf mm2",st n, st_are^^^ 



double yl= (st_Rect .bG^^m+l) *st_scaleY; 

st_sizeString.Format^^(Llf<x<%.llf , % . llf <y<% . llf mm", ^^l.yO,yl) 
st_numString . Format { '"^^ 

} 

CDialog: rOnlnitDialog ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

(t**^ ********************************************************* ************ 



* Paint dialog 
* 

***************************************************************************/ 
void Stat istics : :OnPaint ( ) 

{ 

CPaintDC dc(this); // device context for painting 
PaintHistog (Scdc, CRect (20, 180, 2 95, 400)); 

// Do not call CDialog : :OnPaint ( ) for painting messages 

} 

y*************************************************************************** 
* 

* Paint histogram in the dialog region r 
* 

***************************************************************************/ 
vi3.id Statistics :: PaintHistog (CDC *pDC, CRect r) 

hi 

'■^^ if(!st_Hist) return; 

long p, pmax; 
fr^ pmax= (long) st_max + l; 

'•i I / Draw rectangle and axis 
Jj CRect rl=r; 
.p. rl . Inf lateRect (2,2) ; 

pDC->Rectangle (rl) ; // ( r 1 , EDGE_ETCHED , BF_RECT) ; 

pDC->MoveTo (r. left , r .bottom) ; pDC- >LineTo ( r . right , r. bottom); 
s pDC- >MoveTo (r . left , r , bottom) ; pDC- >LineTo ( r . lef t , r.top); 
Ll pDC- >MoveTo (r . lef t , r . top+2) ; pDC- >LineTo ( r . left +3 , r . top+2) ; 

pDC- >MoveTo (r , lef t , r . bottom) ; 

nj // Set font 

\\ pDC->SetMapMode (MM_TEXT) ; 

^"^ CFont *oldcf = pDC->SelectObject (&theApp, app_SmallFont ) ; 

y pDC->SetTextColor (RGB (0,0,0) ) ; 

n pDC->SetBkMode (TRANSPARENT) ; 

// Write titles 
CString title; 

title. Format ("%.2lf%%",100* (double) ( st_Hi stMax . y ) /st_HistSum) ; 

pDC- >TextOut {r.left+5,r. top, title) ; 

pDC->TextOut (r. left- l,r. bottom, "0") ; 

if (pmax-l>st_HistMax . x+10) // max intensity 

{ 

title. Format ("%d" ,pmax-l) ; 
pDC->TextOut (r . right-7 , r . bottom, title) ; 

} 

if (st_HistMax.x>5 || pmax<10) // most frequent intensity 

{ 

p=r . lef t+ ( (long) ( st_HistMax . x) *r. Width () ) /pmax; 
pDC->MoveTo(p, r. bottom) ; pDC- >LineTo ( p , r , bottom- 10 ) ; 

title . Format ( " %d" , st_HistMax . x) ; 
pDC->TextOut (p-5,r. bottom, title) ; 

} 



// Plot the histogram 
pDC->MoveTo (r . lef t , r . bottom) ; 
for(p=0; p<pmax; p++) 
{ 

pDC->LineTo (r . lef t+ (p*r. Width ( ) ) /pmax, 
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n^^ng) {st_Hist [p] ) *r. Height () ) /st_^^^^ 



r.bottom^^^Dng) {st_Hist [p] ) *r. Height () ) /stJ^^Max.y) 

} 



// Restore fonts 
pDC->SelectObject {oldcf ) ; 
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#if ! defined (AFX_MACPROGRESS|^^H 603BBF44_B19C_llD3_90FA_0020J^j:499D INCLUDED_ 

#def ine AFX MACPROGRESSCTRL_^B53BBF4 4_B19C_llD3_9 0FA_0020AFBC4^BLlNCLUDED_ 



#if _MSC_VER > 1000 
^pragma once 

i^endif // _MSC_VSR > 1000 

// MacProgressCtrl . h : header file 

// 

// CMacProgressCtrl class, version 1.0 
// 

// Copyright (c) 1999 Paul M. Meidinger (pmmeidinger@yahoo.com) 
// 

// Feel free to modifiy and/or distribute this file, but 

// do not remove this header. 

// 

// I would appreciate a notification of any bugs discovered or 

// improvements that could be made. 

// 

// This file is provided "as is" with no expressed or implied warranty. 
// 

// History: 

// PMM 12/21/1999 Initial implementation. 

///////////////////////////////////////////////////////////////////////////// 
// CMacProgressCtrl window 

#include <afxcmn.h> 

class CMacProgressCtrl : public CProgressCtrl 

L. 

/3J Construction 
pj±>lic : 
~l CMacProgressCtrl {) ; 

y 3 

/^5 Attributes 

pujDlic : 

/^f Operations 
/)' Overrides 

II ClassWizard generated virtual function overrides 
H // { {AFX_VIRTUAL (CMacProgressCtrl) 

p // } }afx_virtual 

Hi 

t'.)\ Implementation 
pufcl ic : 

f j BOOL Get Indeterminate 0 ; 

void Set Indeterminate (BOOL bindeterminate = TRUE) ; 

COLORREF GetColorO ; 

void SetColor (COLORREF crColor) ; 

virtual -CMacProgressCtr 1 ( ) ; 

// Generated message map functions 
protected : 

// { {AFX_MSG(CMacProgressCtrl) 
afx_msg void OnPaint() ; 
afx_msg void OnTimer(UINT nIDEvent); 
afx_m9g BOOL OnEraseBlcgnd ( CDC* pDC) ; 
// } )AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 
private : 

int m_nlnd0f f set ; 
BOOL m_blndeterminate ; 

void DrawVerticalBar (CDC *pDC, const CRect rect); 

void DrawHorizontalBar (CDC *pDC, const CRect rect); 

void DeletePens ( ) ; 

void CreatePens ( ) ; 

CPen m_penColor; 

CPen m_penColorLight ; 

CPen m_penColorLighter ; 

CPen m_penColorDarlc; 

CPen m_penColorDarker ; 

CPen m_penDkShadow; 
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CPen m_penShadow; 
CPen m_penLiteShadow; 
void GetColorsO; 
COLORREF m_crColor; 
COLORREF m_crColorLight ; 
COLORREF m_crColorLighte 
• COLORREF m_crColorLighte 
COLORREF m_crColorDark; 
COLORREF m_crColorDarker 
COLORREF m_crDkShadow; 
COLORREF m_cr Shadow ; 
COLORREF m_crLiteShadow; 

}; 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



class OProgress : public CMacProgressCtrl 
{ 

publ ic : 

void ShowProgress ( int percent, char* inf o=NULL) ; 

bool Init ialize ( ) ; 

OProgress ( ) ; 

virtual -OProgress () ; 

}; 

//{ {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line, 
rfgadif // ! defined ( AFX_MACPR0GRESSCTRL_H 603BBF44_B19C_11D3_90FA_0020AFBC499D INCLUDED^) 
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// MacProgressCtrl . cpp : impj^Bfitat ion file 




// > 

// CMacProgressCtrl class, version 1,0 

// 

// Copyright (c) 1999 Paul M. Meidinger (pmmeidinger@yahoo.com) 
// 

// Feel free to modifiy and/or distribute this file, but 

// do not remove this header. 

// 

// I would appreciate a notification of any bugs discovered or 

// improvements that could be made. 

// 

// This file is provided "as is" with no expressed or implied warranty. 
// 

// History: 

// PMM 12/21/1999 Initial implementation. 

#include "stdafx.h" 
#include "MacProgressCtrl . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

#define IDT_INDETERMINATE 100 
#define IND_BAND_WIDTH 20 

/Vf Funtion prototypes. 

C@iORREF LightenColor (const COLORREF crColor, BYTE bylncreaseVal) ; 
qffjORREF DarkenColor (const COLORREF crColor, BYTE byReduceVal) ; 

GJ^ORREF LightenColor (const COLORREF crColor, BYTE bylncreaseVal) 
/^"^ Return Value: None. 

m 

I J Parameters : crColor - References a COLORREF structure. 

/7j_ byReduceVal - The amount to reduce the RGB values by. 

/UJ Remarks : Lightens a color by increasing the RGB values by the given number. 

fi 

BYTE byRed = Ge tRValue ( crColor ) ; 
BYTE byGreen = GetGValue ( crColor ) ; 
p BYTE byBlue = GetBValue ( crColor ) ; 

if ( (byRed + bylncreaseVal) <= 255) 

byRed = BYTE(byRed + by IncreaseVal ) ; 
if ((byGreen + bylncreaseVal) <= 255) 

byGreen = BYTE (byGreen + bylncreaseVal); 
if ((byBlue + bylncreaseVal) <= 255) 

byBlue = BYTE(byBlue + bylncreaseVal); 

return RGB (byRed, byGreen, byBlue); 
} // LightenColorref 

// 

// 

COLORREF DarkenColor (const COLORREF crColor, BYTE byReduceVal) 
// 

// Return Value: None. 
// 

// Parameters : crColor - References a COLORREF structure. 

// byReduceVal - The amount to reduce the RGB values by. 

// 

// Remarks : Darkens a color by reducing the RGB values by the given number. 

// 

{ 

BYTE byRed = GetRValue ( crColor ) ; 
BYTE byGreen = GetGValue (crColor ) ; 



1 



MacProgressCtrl . cpp 



10/27/00 



BYTE byBlue = GetBValue ( 



if (byRed >- byReduceVal) 

byRed - BYTE(DyJ^e4 - oyReduceVal ) ; 
if (byGreen >= byReduceVal) 

byGreen = BYTE (byGreen - byReduceVal); 
if (byBlue >= byReduceVal) 

byBlue = BYTE(byBlue - byReduceVal ) 

return RGB (byRed, byGreen, byBlue); 
} // DarkenColorref 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

II CMacProgressCtrl 

// 

// 

CMacProgressCtrl : :CMacProgressCtrl ( ) 
// 

// Return Value: None. 
// 

// Parameters : None. 
// 

// Remarks : Standard constructor. 

// 

{ 

m_blndet:erminate = FALSE; 
m_nlnd0f f set = 0; 

m_crColor = : :GetSysColor (COLOR_HIGHLIGHT) ; 

GetColors ( ) ; 

CreatePens ( ) ; 

// CMacProgressCtrl 

^ 

CMacProgressCtrl : : -CMacProgressCtrl { ) 

m 

/.(^ Return Value : None . 

/^/^ Parameters : None. 

l\t^ Remarks : None . 

nj DeletePens ( ) ; 
Kj // -CMacProgressCtrl 

E^IN_MESSAGE_MAP (CMacProgressCtrl , CProgressCtrl) 

//{ (AFX_MSG_MAP (CMacProgressCtrl) 

ON_WM_PAINT() 

ON_WM_TIMER() 

ON_WM_ERASEBKGND ( ) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMacProgressCtrl message handlers 

// 

// 

void CMacProgressCtrl : :OnPaint ( ) 
// 

// Return Value: None. 
// 

// Parameters : None. 
// 

// Remarks : The framework calls this member function when Windows 

// or an application makes a request to repaint a portion 

// of an application's window. 

// 

{ 

CPaintDC dcPaint ( this ) ; // device context for painting 
CRect rect, rectClient; 
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GetClientRect (rectClient 
rect = rectClient; 
BOOL bVertical = GetStyl 



5c PBS_VERTICAL; 



// Create a memory DC for drawing. 
CDC dc; 

dc .CreateCompatibleDC(&dcPaint) ; 
int nSavedOC = dc.SaveDCO; 
CBitmap bmp; 

bmp. Great eCompatibleBitmap(&dcPaint, rect. Width () , rect . Height ( ) ) ; 
CBitmap *p01dBmp = dc . SelectOb j ect ( &bmp) ; 

CBrush brl (m_crColorLightest ) ; 

CBrush br2( : :GetSysColor (COLOR_3DFACE) ) ; 

dc.FillRect (rect, £cbr2) ; 

int nLower, nUpper; 
GetRange (nLower , nUpper) ; 

// Determine the size of the bar and draw it. 

if (bVertical) 

{ 

if ( ! m_blndeterminate) 

rect. top = rect. bottom - int (( (float) rect . Height ( ) * float (GetPos ( ) - nLower) ) / float 
(nUpper - nLower) ) ; 

dc . FillRect (rect , &brl) ; 
DrawVerticalBar (&dc, rect); 

} 

else 

n i 

-f if ( ! m_blndeterminate) 

dl rect. right = int ((( f loat ) rect . Width ( ) * f loat (Get Pos ( ) - nLower)) / float (nUpper - nLo 

v^) ) ; 

dc . FillRect (rect , &brl); 
'^t DrawHorizontalBar ( &dc , rect); 

} 

dcPaint . BitBlt (rectClient . lef t , rectClient . top, rectClient .Width ( ) , rectClient .Height ( ) , 

&dc, rectClient . left , rectClient . top, SRCCOPY) ; 

ly 

= dc . SelectObj ect (pOldBmp) ; 
-Li- dc . RestoreDC (nSavedDC) ; 
Ll dc.DeleteDCO ; 
// OnPaint 



^^Bad CMacProgressCtr 1 : : DrawHor izontalBar ( CDC *pDC, const CRect rect) 

m 

// Return Value: None. 
// 

// Parameters : pDC - Specifies the device context object. 

// rect - Specifies the rectangle of the progess bar. 

// 

// Remarks : Draws a horizontal progress bar. 

// 
{ 



if ( Irect-WidthO ) 
return; 

int nLeft = rect. left; 

int nTop = rect, top; 

int nBottom = rect, bottom; 

// Assume we're not drawing the indeterminate state. 
CPen *p01dPen = pDC- >SelectOb j ect ( &m_penColorLight ) ; 

if (m_blndeterminate) 

{ 

pOldPen = pDC- >SelectObj ect ( &m_penColor) ; 

int nNumBands = ( rect . Width { ) / IND_BAND_WIDTH) + 2; 

int nHeight = rect . Height ( ) + 1; 

int nAdjust = nLeft - IND_BAND_WIDTH + m_nIndOf f set ; 
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{ 

// Display pattern recta 
Draw ( PATTERN_RECT) ; 

// DoModal 

if ( !AllocatePattern() ) return IDCANCEL; 

CDialog : : DoModal ( ) ; 

DeallocatePattern ( ) ; 

Erase ( PATTERN_RECT) ; 

Erase (FOUND_RECT) ; 

return IDOK; 

) 

/*********************★************************************************* 

■* 

* Prepare dialog before displaying 
* 

************************************************** 
BOOL FindRegion : :OnInitDialog ( ) 

{ 

CDialog: :OnInitDialog ( ) ; 

// Force dialog to appear in the left top screen corner 
CRect wr ( 0 , 0 , f_FoundDi splay , right +10 , f_FoundDi splay . bottom+70 ) ; 
wr .Of f setRect ( theApp . app_ScreenResolut ion-CSize (50,80) -wr.SizeO ) ; 
MoveWindow (wr , FALSE) ; 




// Set parameters 
f _Correlation=^- 10 . 0 ; 

f_ImageStartSearchPoint=CPoint (0,0) ; 
=~ f _Percent=50 ; 

f_CDC->SetStretchBltMode (HALFTONE) ; 



01 f_Speed. SetRange (0, 5, TRUE) ; 

,1^ f _Speed. SetTicFreq (1) ; 

C''. f_Speed. SetLineSize (2) ; 

'"'i f_Speed. SetPos (3 ) ; 

f _Progress . SetRange ( 0 , 100) ; 

return TRUE; 

h 

*fij Display image pattern and found areas on the dialog 

*********************************************************************** 

^^4d FindRegion : :DisplayPatterns () 

// Grab dialog CDC 

CDC* dialog_pDC=GetDC() ; 

dialog_pDC->SetStretchBltMode (HALFTONE) 



// Output and frame image patterns 

f_pBmp->DisplayDIB (dialog_pDC, f _Patt ernDi splay , f _ImagePat ternRect , CPoint (0,0) .false) 
if (f_Correlation>=-l . 0) 

{ 

f _pBmp- >DisplayDIB ( dialog__pDC , f_FoundDi splay , f _ImageFoundRect , CPoint (0 , 0) , false) 

} 

dialog_pDC->DrawEdge ( f_PatternDi splay , EDGE_RAISED, BF_RECT) ; 
dialog_pDC->DrawEdge ( f _FoundDisplay , EDGE_RAISED , BF_RECT) ; 

// Select font 

dialog_pDC->SetMapMode (MM_TEXT) ; 

CFont *oldcf = dialog_pDC->SelectObject (&theApp . app_SmallFont ) ; 
dialog_pDC->SetBkColor (RGB (192, 192, 192) ) ; 

// Draw titles 

int off = 12*theApp . app_ResolutionScaleFactor ; 
dialog_pDC- >TextOut ( f_PatternDi splay . lef t , f_PatternDi splay . top-of f , 

"Selected pattern : "); 
if (f_Correlation>=-l . 0) 

{ 

CString str_corr,- 
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str_corr. Format {"Mat^*|ound (%4.0f %%): 'MOO*f_Correl^^Dn) ; 
dialog_pDC->TextOut {^j^undDisplay . lef t , f_FoundDi splay .^^poff , str_corr) ; 

// Reset fonts 

dialog_pDC->SelectObject (oldcf ) ; 

} 

/******************★**************** ************************* *************** 
* 

* Draw and erase regions 
* 

***************************************************************************/ 
void FindRegion: :Draw(UINT code) 

{ 

CRect tmp_rect; 
switch (code) 

{ 

case PATTERN_RECT : 

tmp_rect=f _ScreenPatternRect ; 
tmp_rect .Def lateRect (1,1) ; 

f_CDC->DrawEdge ( tmp_rect , EDGE_ETCHED , BF_RECT) ; 

tmp_rect .Def lateRect (theApp, app_Resolut ionScaleFactor , theApp. app_Resolut ionScaleFactor ) 
f_CDC->DrawEdge ( tmp_rect , EDGE_ETCHED , BF_RECT) ; 
break; 
case FOUND_RECT: 

tmp_rect=f _ScreenFoundRect ; 
tmp_rect .Def lateRect (1,1) ; 

f_CDC->DrawEdge (tmp_rect , EDGE_BUMP , BF_RECT) ; 
ri break; 

I' 

V-Sld FindRegion: : Erase (UINT code) 
z switch ( code) 
'-^^ case PATTERN_RECT : 

Jl f _pBmp->DisplayDIB ( f _CDC , f _ScreenPat ternRect , f _I mage Pat ternRect , 

^1 CPoint (0, 0) , false) ; 

break; 
= case FOUND_RECT: 

Lb f _pBmp- >DisplayDIB (f_CDC, f _ScreenFoundRect , f _ImageFoundRect , 

CPoint (0 , 0) , false) ; 

Z\ break; 

p\ } 

v©id FindRegion : :OnPaint 0 

CPaintDC dc(this); // device context for painting 
DisplayPatterns ( ) ; 

// Do not call CDialog : : OnPaint ( ) for painting messages 



/ 



*************************************************************************** 



Allocate and deallocate search pattern 



***************************************************************************/ 
bool FindRegion: : Al locatePat tern ( ) 

{ 

i n t i , j ; 

// Allocate search pattern 
int rw=f _ImagePatternRect . Width ( ) ; 
int rh=f _ImagePatternRect , Height ( ) ; 
if(rw<=0 II rh<=0) return false; 
try ( f _Pattern=new long* [rw] ; } 
catch(...) { return false; ) 
if ( ! f _Pattern) return false; 
for(i=0; i<rw; i++) 

{ 

f_Pattern[i] = new long [rh] ; 

if (f_Pattern [i] ==0) 

{ 

for(j=0; j<i; j++) { if (f_Pattern[j] ) delete [] f _Pat tern [ j 1 ; 
delete [] f Pattern; 
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return false; 
} // out of memory 

) 

// Fill search pattern with pixel data 

f _Pattern_Average=0 ; 

int X, xO, y, yO, count=0; 

for {x0=0 , x=f _ImagePatternRect . left ; x0<rw; xO++,x++) 

{ 

f or (y0=0 , y=f _ImagePatternRect . top; yO<rh; yO++,y++) 

{ 

if ( f _ReduceNoise) f_Pattern [xO] [yO] =f _pBmp- >GetSmoothedLuminance (x, y) 
else f_Pattern[xO] [yO ] =f _pBmp- >GetLuminance (x , y ) ; 

f _Pattern_Average += f_Pattern[xO] [yO] ; 
count ++; 

) 

} 

if(count<l) return false; 
f_Pattern_Average /= count; 
return true; 

} 

bool FindRegion: : DeallocatePattern ( ) 

( 

if (f_Pattern) 
{ 

for(int i=0; i< f_ImagePat ternRect . Width (} ; i++) 

if (f_Pattern [i] ) delete [] f _Pattern [ i] ; 
delete [] f_Pattern; 
f_Pattern=NULL; 

return true; 
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#if !def ined(AFX_FTPLOGINDIA|^^H C867C413_D8A3_11D2_8070_00000^^000 INCLUDED_ 

^^def ine AFX_FTPL0GINDIAL0G_h|^B6 7C4 13_D8A3_1 lD2_8070_00 0O0OO00d^B[lNCLirDED_ 



**if _MSC_VER > 1000 
ttpragma once 

^endif // _MSC_VER > 1000 

// FTPLoginDialog . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 

// FTPLoginDialog dialog 

^include "resource. h" 

class FTPLoginDialog : public CDialog 

{ 

// Construction 
publ ic : 

void SetData (CString host, CString usr, CString pwd) ; 
FTPLoginDialog (CWnd* pParent = NULL); . // standard constructor 

// Dialog Data 

// { {AFX_DATA(FTPLoginDialog) 
enum { IDD = IDD_DIALOG_FTP }; 
C S t r i ng m_Ho s t ; 
CString m_Pwd; 
CString m_User; 
// } }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
y // { {AFX_VIRTUAL ( FTPLoginDialog) 
J] protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
//]] AFX_V I RTUAL 

/VJ Implementation 
pt£t)tected : 

// Generated message map functions 
nj // ( (AFX_MSG(FTPLoginDialog) 

virtual BOOL Onini tDialog ( ) ; 
^, //}}AFX_MSG 
^" DECLARE_MESSAGE_MAP ( ) 
}kJ 

nj 

/^l {afx_insert_location} } 

//^Microsoft Visual C++ will insert additional declarations immediately before the previous line, 
ttgndif // ! defined (AFX_FTPLOGINDIALOG_H C86 7C4 13_D8A3_1 1D2_8070_000000000000 INCLUDED_) 
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// FTPLoginDialog . cpp : impl^^^tat ion file 
// 

#include "stdafx.h" 
#include " FTPLoginDialog . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILS 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// FTPLoginDialog dialog 

FTPLoginDialog :: FTPLoginDialog (CWnd* pParent /*=NULL*/) 
: CDialog ( FTPLoginDialog :: IDD , pParent) 

{ 

// { {AFX_DATA_INIT (FTPLoginDialog) 
m_Host = _T("") ; 
m_Pwd = _T ( " " ) ; 
m_User = _T ( " " ) ; 
// } }AFX_DATA_INIT 



void FTPLoginDialog :: DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
h: II { (AFX_DATA_MAP( FTPLoginDialog) 

DDX_Text (pDX, IDC_FTP_HOST , m_Host}; 
□1 DDX_Text (pDX, IDC_FTP_PWD, m_Pwd) ; 

DDX_Text (pDX, IDC_FTP_USER , m_User) ; 
'^^ / / } } AFX_DATA_MAP 

H 

B%GIN_MESSAGE_MAP ( FTPLoginDialog , CDialog) 

hJ / / { { AFX_MSG_MAP ( FTPLog inD ia log ) 

= // } }AFX_MSG_MAP 
E^P_MESSAGE_MAP ( ) 

/3l^////////////////////////////////////////////////////////////////////////// 

v^J FTPLoginDialog message handlers 

voS-d FTPLoginDialog :: SetData (CString host, CString usr, CString pwd) 
ri m_Host=host ; m_User=usr; m_Pwd=pwd; 

} " 

BOOL FTPLoginDialog: : Onini tDialog () 

{ 

CDialog: : OnIni tDialog ( ) ; 
Tn_Pwd= " ; 

UpdateData( FALSE} ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 
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#if !def ined(AFX_LOGFILE_H_|^|5823_750 8_llD3_9 6FD_00105A21774F^™CLUDED_) 
^tdef ine AFX_LOGFILE_H 0B9E5^^P7508_1 1D3_96FD_00105A2 1 774 F INd^^pD_ 

#if _MSC_VER > 1000 
#pragma once 

ffendif // _MSC_VER > 1000 
// LogFile. h : header file 
// 

#include "resource. h" 

///////////////////////////////////////////////////////////////////////////// 
// LogFile dialog 

class LogFile : public CDialog, public DICOMViewLog 

{ 

// Construction 
public : 

afx_msg void OnClear ( ) ; 

void DoModeless (CString win_title= "Client Log")/ 

void Load(const char *pText) ( DICOMViewLog :: Load (pText ) ; } 

void Load(DICOMObject& DO) { DICOMView : : Load (DO) ; } ; 

bool IsOn ( ) ; 

bool Ref reshText ( ) ; 

LogFile (CString filename="", RTC* rtc=NULL, CWnd* pParent = NULL) 
{ 

CreateDVL ( (char*) ( LPCSTR) f i lename , rtc) ; 

}; 

/j^^ Dialog Data 
^: //{ {AFX_DATA (LogFile) 

enum { IDD = IDD_DIALOG_LOGFILE }; 
01 CEdi t m_LogWindow; 
//}}AFX_DATA 

/^J Overrides 

•j'^ II ClassWizard generated virtual function overrides 
21 //{ {AFX_VIRTUAL (LogFile) 
^^=^ protected: 

= virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

Li // } }AFX_VIRTUAL 

W. Implementation 
pBJjtected : 

// Generated message map functions 
// { (AFX_MSG(LogFile) 
Lr5 virtual BOOL Onini tDialog () ; 
afx_msg void OnOK() ; 
afx_msg void OnRefreshO; 
afx_msg void OnClose ( ) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

void OnCancel ( ) ; 

}; 

// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#endif // ! defined (AFX_LOGF I LE_H 0B9E5823_7508_11D3_96FD_00105A21774F INCLUDED_) 
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// LogFile.cpp : implementat^^^^f i le 

// 

#include "stdafx.h" 
# include "DCM.h" 
include "LogFile.h" 

#ifdef _DEBUG 
^define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

Uendit 

///////////////////////////////////////////////////////////////////////////// 
// LogFile dialog 

void LogFile :: DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
/ / ( { A FX_DAT A_M A P ( Log File) 

DDX_Control (pDX, IDC_EDIT__FILE_LOG, m_LogWindow) ; 
DDX_Text (pDX, IDC_EDIT_FILENAME, CString (m_Fi lename ) ) ; 
// } }AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (LogFile, CDialog) 
// { {AFX_MSG_MAP (LogFile) 

ON_BN_CLICKED ( IDC_BUTTON_REFRESH , OnRef resh) 
ON_BN_CLICKED ( IDC_BUTTON_CLEAR , OnClear ) 

2 on_bn_clicked(idok, onok) 
on_wm_close ( ) 
// } }afx_msg_map 

E^b_MESSAGE_MAP ( ) 

/^{////// ////////////////////////////////////////////////// ////////////////// 
/ LogFile message handlers 

************************************************************ 

'^''-'^ Set dialog window to log text 
*= 

*********************************************************** 

tM£>ol LogFile :: RefreshText ( ) 

{Si 

Mr' if ( ! ( this->GetSaf eHwnd ( ) ) ) return true; // dialog is not displayed 
SJ long max_length=10000 ; 

CString tbuffer ( (TCHAR) ( ' ' ) , max_length) ; 

// Refresh log text 

DICOMViewLog : :RefreshText ( (char*) (LPCSTR) tbuffer, max_length) ; 
// Display log 

int n=tbuffer. Replace ( "\n" , "\r\n" ) ; 
m_LogWindow. SetWindowText (tbuffer) ; 
UpdateData( FALSE) ; 
m_LogWindow. LineScroll (n+10) ; 
return true; 

} 

* Initialize dialog 
* 

******************************************************** 
BOOL LogFile : lOnlnitDialog ( ) 

{ 

CDialog: : Onini tDialog ( ) ; 
RefreshText ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 
* 

* Display dialog 
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^^^^ 



I* It***************************** 



void LogFile : iDoMode less (CStf^ig win_title /*="Client Log"*/) 



if (this->GetSaf eHwnd ( ) ) return; 
Created DD_D I ALOG_LOGF I LE , NULL ) ; 
// Always display on top 
SetWindowPos ( &wndTopMost , 0,0,0,0, 

SWP_NOMOVE I SWP_NOSIZE | SWP_SHOWWINDOW ) 
SetWindowText (win_title) ; 
//ShowWindow(SW_SHOWNORMAL) ; 

if (win title . Find ( "Client ") >-l) // offset client window 



} 

else 

{ 
} 



theApp.MoveWindowToCorner ( this, CSize (20,20)) ; 



theApp . MoveWindowToCorner (this) ; 



bool LogFile :: IsOnO { return ( thi s- >GetSaf eHwnd ( ) != NULL) ; 

* 

* Buttons 



********************************************************** 



OnOKO 
OnClose ( ) 
OnCancel ( ) 
OnRef resh ( ) 
OnClear ( ) 



{ 



{ 



DestroyWindow ( ) 
DestroyWindow ( ) 
DestroyWindow ( ) 
Ref reshText ( ) ; 



} 



void LogFile: 
void LogFile: 
void LogFile: 
vrnd LogFile: 
v^old LogFile: 

m 

01 DICOMViewLog : : Ref reshText (NULL , -1) ; 

^f^^ if ( this->GetSaf eHwnd 0 ) m_LogWindow . SetWindowText ) 
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C^^|4_7D8F_1 1D2_9 5 8F_000 000000000 l^^^l 

4^^F_11D2_9 58 F_00 000000 0000 INCLUE^B 



^it ! defined (AFX_LUPA_H 24C^fc4_7D8F_llD2_958F_000000000000 :^^^DED_) 

^define AFX_LUPA_H 24CE8B94f 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// Lupa.h : header file 
// 

#include " Image/ Image . h" 
^include "resource. h" 

///////////////////////////////////////////////////////////////////////////// 
// Lupa dialog 

class Lupa : public CDialog 

{ 

// Construction 
public : 

Lupa(CWnd* pParent = NULL) ; 
-Lupa ( ) ; 

// Dialog Data 

//{ {AFX_DATA(Lupa) 

enum { IDD = IDD_MAGNIFY_DIALOG }; 
private : 

BOOL l_optimize; 

long l_height; 

long l_width; 

public : 
=:a double l_zoom; 
y //}}AFX_DATA 

/%^ Overrides 

// ClassWizard generated virtual function overrides 
N //( {AFX_VIRTUAL(Lupa) 
lJI protected: 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

'tf. II } }AFX_VIRTUAL 

IJ Implementation 

L._ bool l_active; 
CSize l_scnSize; 

V5 void Initialize (CSize csScn, double scrn__zoom, double lupa_zoom) ; 

void Reset_l_DC (CDC *pDC, CRectSc scrol led_cl ient ) ; 
IsJ void Move(CPoint& a, CPoint& rel. Image* pBmp , CDC* pDC) ; 
Ci bool Resize (CDC* pDC , CPoint center, CPoint vertex); 

bool Resize (CDC *pDC) ; 

CString toString(); 

inline CRect Lupa :: Set ImgRect (CPoint & cpl) 

( 

CRect r( CPoint ( cpl . x- ( l_imgSize . cx> > 1 ) , cpl . y- ( l_imgSize . cy>>l ) ) , l_imgSize ); 
return r; 

}; 

inline CRect SetScrnRect (CPoint & cpS) 

{ 

return CRect (CPoint (cpS.x- ( this->l_scnSi2e . cx>>l) , cpS.y- ( this- >l_scnSize , cy>>l) ) 
this- >l_scnSize) ; 

}; 

protected : 



// Generated message map functions 

//( {AFX_MSG(Lupa) 

virtual BOOL Onini tDialog () ; 

afx_msg void OnChangeMagnif yWidthEdi t () ; 

afx_msg void OnChangeMagnif yHeightEdit () ; 

afx_msg void OnChangeMagnif yZoomEdit () ; 

afx_msg void OnChangeMagnif yOpt imize () ; 

//} }afx_msg 

DECLARE_MESSAGE_MAP ( ) 
private : 

bool l_preactive; 
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double l_img_zoom; 
CSize l_imgSi2e; 
CRect l_9cnRect, l_dragl?Sct; 
HBITMAP 1_DIB; 
BYTE* l_Data; 
CDC* 1 DC; 



void Draw (CDC *pDC) ; 

bool Update2 (CRect& a, CRect&b) ; 

}; 

//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line , 

#endif // ! def ined ( AFX_LUPA_H 24CE8B94_7D8F_1 1D2_95 8F_0 00 00000 000 0 INCLUDED_) 
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// Lupa . cpp : implementat io 
// 

^include "stdafx.h" 
#include "DCM.h" 
# include •♦Lupa.h" 



^^ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[1 = FILE_ 

^endit 



///////////////////////////////////////////////////////////////////////////// 

// Lupa dialog 

Lupa: : Lupa (CWnd* pParent /*=NULL*/) 
CDialog (Lupa : : IDD, pParent) 



{ 



//{ {AFX_DATA_INIT(Lupa) 

l_height = 128* theApp . app_Resolut ionScaleFactor ; 

l_width = l_height; 

l_zoom = 2.0; 

l_optimize=:f alse ; 

/ / } } AFX_D ATA_ I N I T 

l_active= false ; 

l_preacti ve=f al se ; 

1_DC=NULL; 

1_DIB=NULL; 

l_Data=NULL; 

this->Initialize (CSize ( l_width, l_height ) , 1.0, l_zoom) ; 



Ljfpa : : - Lupa ( ) 

.f"; if(l_DC && ! theApp. app_Metheus) delete 1_DC; 

'H if(l_Data) delete [] i_Data; 
Ji if{l_DIB) 

{ 

I"; MetheusDeleteCompatibleBitmap { l_DC->GetSaf eHdc ( ) , 1_DIB) ; 



v%^Ld Lupa : : DoDataExchange (CDataExchange* pDX) 

\l CDialog: : DoDataExchange ( pDX ) ; 
J: / / ( ( AFX_DATA_MAP ( Lupa ) 

y DDX_Text (pDX, IDC_MAGNIFY_HEIGHT_EDIT , l_height) ; 
d DDV_MinMaxLong (pDX, l_height, 0, 1000); 

DDX_Text (pDX, IDC_MAGNIFY_WIDTH_EDIT, l_width) ; 

DDV_MinMaxLong (pDX, l_width, 0, 1000); 

DDX_Text (pDX, IDC_MAGNIFY_ZOOM_EDIT , l_zoom) ; 

DDV_MinMaxDouble (pDX, l_zoom, 0., 10.); 

DDX_Check(pDX, IDC_MAGNI FY_OPTIMI ZE , l_optimize) ; 

// } }AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (Lupa, CDialog) 
/ / { { AFX_MSG_MAP ( Lupa ) 

ON_EN_CHANGE ( IDC_MAGNI FY_WIDTH_ED I T , OnChangeMagni f yWidthEdi t ) 
ON_EN_CHANGE ( I DC_MAGN I F Y_HE I GHT_ED I T , OnChangeMagn i f y He i gh t Ed i t ) 
ON_EN_CHANGE ( IDC_MAGN I FY_ZOOM_EDIT , OnChangeMagni fyZoomEdi t ) 
ON_EN_CHANGE ( IDC_MAGN I FY_OPT IMI ZE , OnChangeMagni fyOpt imi ze ) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

/******************************************************************** 

* LUPA initialization 
* 

* Input: 

* on-screen lupa size csScn, screen image zoom scrn_zoom, LUPA l_zoom l_img_zoom 
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***-k*-kifkitifk-k**ir**icititit'kifkitir-k -k i^^^t* ic-k-kickir-kir-k-k-k******************* *^^^^ ******** j 

void Lupa :: Initialize (CSize double scrn_zoom, double lup^^^pm) 

l_scnSi2e=CSize { csScn . cx , csScn . cy ) ; 
l_zooni= lupa_zoom; 
l_img_zoom=scrn_20om; 

double iv2f=1.0 / ( scrn_zoom* lupa_zoom) ; //combined inversed zoom 
l_imgSize=CSize ( (long) ( 1+ivzf *l_scnSize . cx) , 

(long) ( 1+ivzf *l_scnSize . cy) ) ; 
l_dragRect=CRect (0,0,0,0) ; 

} 
* 

* Lupa message handlers 
* 

****************************************************** 
BOOL Lupa : :OnInitDialog 0 

( 

CDialog: : Onini tDialog () ; 
l_width= l_scnSize . cx ; 
l_height=l_scnSize . cy ; 
UpdateData (FALSE) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

) 

void Lupa: : OnChangeMagni f yWidthEdi t ( ) 
( 

UpdateData (TRUE) ; 
if (l_width<10) l_width=10; 
l_scnSize . cx= l_width ; 
-iJ Initialize ( l_scnSize , l_img_zoom, l_zoom) ; 

vpid Lupa: : OnChangeMagni fyHeightEdi t ( ) 

UpdateData (TRUE) ; 
if (l_height<10) l_height=10; 
-A\ l_scnSize . cy=l_height ; 

Ini t ialize ( l_scnSize , l_img_zoom, 1 zoom); 

void Lupa: : OnChangeMagni fyZoomEdi t ( ) 
(U 

UpdateData (TRUE) ; 
if (l_zoom<l . 5) l_zoom=1.5; 
nj Ini t ial ize ( l_scnSize , l_img_zoom, l_20om) ; 

K\ 

vQ:Jd Lupa: : OnChangeMagni f yOptimize ( ) 
(U 

Li UpdateData (TRUE) ; 

l_opt imize= ! l_opt imize ; 



J********************************************************************** 
* 

* Move lupa over the image CDC, responding to (dis) activated status 

***********************************************************************! 
void Lupa : :Move (CPointSt a, CPoint& rel. Image* pBmp , CDC* pDC) 

{ 

CPoint p; 
CRect r0,rl; 
CSize da=a-rel; 

if(l_active) // active lupa was requested 

{ 

// Remove lupa resizing rectangle, if any 
if ( l_dragRect . bottom != 0) 

{ 

Draw(pDC) ; 

l_dragRect=CRect (0,0,0,0) ; 

} 
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w^^^ot active before 

[H^^^eenMap . crScreen . Width { ) ,pBmp->m Swee 



if ( ! l_preact ive) // wi 

( _ 

rO = CRect {0, 0,pBmp->m_^^eenMap.crScreen. Width {) , pBmp- >m_S??eenMap . cr Screen . Height () ) 
Reset_l_DC(pDC,rO) ; 

r0=CRect { 0 , 2 , 0 , 2) ; // dummy update area 

} 

else rO=l_scnRect ; // Remember previous image area 
// Compute new lupa zoom area 
rl=SetScrnRect (a) ; 

// For Metheus: ignore rectangles not fully inside the image area 
if ( theApp . app_Metheus ! pBmp- >m_ScreenMap . Screen_in_Image ( rl , 3 ) ) return; 
l_scnRect=rl ; 

// Compute and redraw update rectangles 
bool bu=Update2 (rO , rl) ; 
if ( theApp . app_Metheus) 
{ 

rO . Inf lateRect (2,2) ; 

pBmp- >DisplayDIB (pDC, rO , pBmp- >m_ScreenMap . Screen_to_Image (rO) , CPoint (da) ) ; 
/* 

MetheusLoadlmageFromDIB (pDC->GetSaf eHdc ( ) , 1_DIB, theApp , app_DynamicPalet teStart , 

rO. Ieft,r0. top, rO. Width 0 ,rO. Height () , 
rO , left , rO . top) ; 

*/ 



else 



rO .Of f setRect ( -da) ; 

pDC->BitBlt (rO . lef t , rO . top, rO .Width ( ) , rO . Height ( ) , 1_DC, 
rO . left , rO . top, SRCCOPY) ; 

} 

if (bu) 
{ 

if ( theApp . app_Metheus) 
{ 

rl . Inf lateRect (2, 2) ; 

pBmp->DisplayDIB (pDC, rl , pBmp- >m_ScreenMap . Screen_to_Image (rl) , CPoint (da) ) ; 
/* 

MetheusLoadlmageFromDIB (pDC- >Get Saf eHdc ( ) , 1_DIB, theApp . app_DynamicPalet teStart , 

rl. left, rl. top, rl.WidthO ,rl.Height() , 
rl.lef t,rl.top) ; 

*/ 

} 

else 

{ 

rl .Of f setRect ( -da) ; 

pDC->BitBlt (rl . lef t , rl . top, rl .Width ( ) , rl .Height ( ) , 1_DC, 
rl . left , rl . top, SRCCOPY) ; 

} 

} 

// Zoom image into new area 
rO=l_scnRect ; 
rO.Off setRect (-da) ; 

CRect ir=Set ImgRect (pBmp- >m_ScreenMap . Screen_to_Image (a) ) ; 
if ( l_opt imize) 

{ 

Image* kadr=new Image ( false) ; // no pixel undo 

if ( !kadr->CreateImage (8* ( (7+ir. Width () ) /8) , 8* ( (7+ir .Height ( ) ) /8) , 

pBmp- >GetBy tesPerPixel ( ) , pBmp- >m_pPal ) ) 

{ 

delete kadr; 

pBmp->DisplayDIB (pDC, rO , ir, CPoint (0,0) , false) ; 
pDC->DrawEdge (& (rO) , EDGE_BUMP , BF_RECT) ; 
return; 

} 

kadr->m_pPal->p_active=false; // no palettes for lupa ! 
pBmp->GetSubimage (kadr , ir . lef t , ir . top) ; 
kadr->TR_HistStretch(l, false) ; 

kadr->DisplayDIB (pDC, rO , CRect (0,0, ir. Width ( ) -1 , ir . Height () -1) , CPoint (0,0) , false) ; 
delete kadr; 



else 

{ 

pBmp->DisplayDIB (pDC, rO , ir, CPoint (0,0) , false) ; 

} 
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pDC->DrawEdge(&(rO) ,EDGE^^P,BF RECT) ; 

W 

else // disactivated lupa was requested 

{ 

if { l_preact ive) 



p=l_scnRect . TopLef t { ) -da ; 
i f ( theApp . app_Metheus ) 

{ 

pBmp->DisplayDIB (pDC, l_scnRect, pBmp- >m_ScreenMap . Screen_to_Image (l_scnRect) , da) 
/* 

MetheusLoadlmageFromDIB (pDC- >GetSaf eHdc ( ) , 1_DIB, theApp. app_DynamicPalet teStart , 

p . X , p . y , l_scnRect , Width ( ) , l_scnRect . Height ( ) , 
P-x,p.y) ; 

*/ 

) 

else 
{ 

pDC- >BitBlt(p.x,p.y, l_scnRect . Width ( ) , l_scnRect . Height ( ) , 1_DC, 
p.x,p.y,SRCCOPY) ; 

delete 1_DC; 

) 

l_preactive= false ; 
1 DC=0; 



******************************************************* 



Represents update region as two rectangles 
*Z1 Returns false if only one rectangle "a" must be updated 
or true if both "a" and "b" 

ie.-t^ **************************************************** 

hohl Lupa : :Update2 (CRect & a, CRect & b) 

|U if (a.WidthO !=b.Width{) || a . Height ()! =b . Height ( ) ) return false; 
if (a . EqualRect ( &b) ) // coinciding rectangles 

a=CRect (a. left, a. top, a. left, a. top) ; 
IraJ return false; 

nJ ) 

u^^i CRect al; al . CopyRect ( &a) ; 

2j CRect bl; bl -CopyRect (&b) ; 

Cj if (a. lef t<=b. lef t && b . left< =a . right ) 

~ if (a , top<=b . top ScSc b . top< = a . bottom) 

{ 

al=CRect (a. left, a, t op, b, left, a. bottom) ; 
bl=CRect (b. left, a. top, a, right , b . top) ; 

} 

else if (a . top<=b . bottom &fie b . bottom< =a . bottom) 

{ 

al=CRect (a . lef t , a . top, b . lef t , a . bottom) ; 
bl= CRect (b. left, b. bottom, a. right , a . bottom) ; 

) 

else return false; 

) 

else if ( a . lef t< =b . r ight && b . right<=a . right ) 

{ 

if (a . top<=b . top && b. top<=a . bottom) 

{ 

al=CRect (a.left,a.top,b.right,b.top) ; 
bl= CRect (b . right , a . top, a . right , a . bottom) ; 

} 

else if (a. top<=b,bottom && b . bottom< =a . bottom) 

{ 

al=CRect (a . lef t , b . bottom, b . right , a . bottom) ; 
bl=CRect (b . right , a . top, a . right , a . bottom) ; 

} 

else return false; 
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else return false; 

a . CopyRect (&al) ; 

b. CopyRect (&bl) ; 
return true; 



* Copies current screen image into lupa CDC 1_DC 
* 

****************************************************** 
void Lupa :: Reset_l_DC (CDC * pDC , CRect& scrol led_cl ient ) 

{ 

int w=scrolled_client . Width () ; 
int h=scrolled_client . Height () / 
l_preact ive=true ; 
if ( theApp . app_Metheus) 

{ 

l_DC=pDC; return; 

wr=2048; h=2560; 
// BYTE buffer 

if(l_Data) ( delete [] l_Data; l_Data=NULL; } 

if (1_DIB) 

{ 

MetheusDeleteCompat ibleBitmap (pDC->GetSaf eHdc { ) , 1_DIB) ; 
1_DIB=NULL; 

"^^ 1 DIB=MetheusCreateCompat ibleBitmap (pDC- >GetSaf eHdc (), w, h) ; 

Q% l_Data=new BYTE[w*h*3] ; 

HDC hdc=pDC->GetSaf eHdc 0 ; 

BOOL bl=MetheusGet Image IntoData (hdc , 1_DIB , theApp . app_DynamicPaletteStart , 



w _ _ _ 

"^J (UCHAR*) l_Data, w, h, 2*w, 16, 

Hi 



B 



0 , 0 , w, h, 
0,0); 

if {bl==FALSE) 



Beep (700, 150) ; 

Af xMessageBox ( "MetheusGet ImagelntoData Failed") ; 

} 

LI BOOL b2=MetheusLoadImageFromData (hdc , 1_DIB, theApp , app_DynamicPaletteStart , 

nj , l_Data, w, h, 2*w, 16, 

IJ'z 0 , 0 , w , h , 

J; scrolled_client . lef t , scrol led_client . top) ; 

P if (b2==FALSE) 

Beep (700, 250) ; 

Af xMessageBox ( "MetheusLoadlmageFromData Failed") ; 

} 



else 
{ 



if(l_DC) { l_DC->DeleteDC 0 ; delete 1_DC; 1_DC=0; } 
l_DC=new CDC ( ) ; 

1_DC- >CreateCompat ibleDC (pDC) ; 
CBitmap b; 

b. CreateCompat ibleBitmap (pDC , w, h) ; 
l_DC->SelectObject (&b) ; 

l_DC->BitBlt ( 0 , 0, w, h,pDC, scrol led_cl ient . lef t , scrol led_cl ient . top, SRCCOPY) 
b.DeleteObj ect ( ) ; 



Interactively resize the Lupa region on the image 



bool Lupa :: Resize (CDC *pDC, CPoint center, CPoint vertex) 

{ 

Draw{pDC) ; // remove old rectangle 
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CPoint z=vertex-center ; 
int a= (abs (z . x) ) <<1 ; if (^^B) a = 32; 

int b= (abs (2.y) ) <<1; if(bff2) b=32; 
Initialize (CSize (a , b) , l_img_zoom, l_zoom) ; 
l_dragRect = Set ScrnRect (center) ; 
Draw(pDC); // draw new rectangle 
return true; 

) 

bool Lupa :: Resize (CDC *pDC) 

{ 

Draw(pDC) ; // just remove old rectangle 
l_dragRect=CRect (0, 0,0,0) ; 
return true; 

) 

* 

* Output Lupa parameters into a string (used in status bar) 
* 

******************************************************** 
CString Lupa : : toString ( ) 

{ 

CString s; 

s . Format (" Screen size %dx%d, zoom=% . 21f " , l_scnSi2e . cx, l_scnSize . cy , l_20om) 
return s; 

} 



****************************************************************** 



*=:=. Draw Lupa region rectangle 

irAdt ****************************************************************/ 

Wid Lupa :: Draw (CDC *pDC) 

int dmode=SetROP2 (pDC->m_hDC, R2_N0T) ; 
'"^=1 pDC- >MoveTo ( l_dragRect . TopLef t ( ) ) ; 
di pDC- >LineTo ( l_dragRect . right , l_dragRect . top) ; 

pDC- >LineTo ( l_dragRect . right , l_dragRect . bottom) ; 

pDC- >LineTo ( l_dragRect . left , l_dragRect . bottom) ; 
ly pDC->LineTo (l_dragRect . TopLef t () ) ; 
s SetROP2 (pDC- >m_hDC , dmode) ; 
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#if !def ined(AFX_RENAME_FILE^fc_DIALOG_H 5527F6 76_DCE1_1 1D2_96^^J0105A21774 F INCLUDED_) 

#def ine AFX RENAME FILE D I rJ^BoG_H 5527F6 76_DCEl_llD2_9627_0{i^Bl21774F INCLUDED_ 



tjif _MSC_VER > 1000 
^pragma once 

ttendif // _MSC_VER > 1000 

// Rename_File_Dir_Dialog . h : implementation file 
// 

^include "stdafx.h" 
^include "DCM.h" 



//Ififdef _DEBUG 
//#define new DEBUG_NEW 
//#undef THIS_FILE 

//static char THIS_FILE[] = FILE ; 

//#endif 

///////////////////////////////////////////////////////////////////////////// 
// Rename_File_Dir_Dialog dialog 

class Rename_File_Dir_Dialog : public CDialog 

{ 

// Construction 
public : 

Rename_File_Dir_Dialog (CString old_name, CWnd* pParent = NULL); // standard constructor 
CString getName ( ) ; 

/|/=. Dialog Data 

//{ {AFX_DATA(Rename_File_Dir_Dialog) 
Jj enum ( IDD = IDD_DIALOG_RENAME_FILE_DIR }; 
Ql CString m_NewName; 

//}}AFX_DATA 



Ml Overrides 

II // ClassWizard generated virtual function overrides 
^; // ( ( AFX_VIRTUAL (Rename_File_Dir_Dialog) 
ly protected: 

= virtual void DoDat aExchange ( CDataExchange* pDX) ; // DDX/DDV support 

Li. / / } }afx_virtual 

/M^ Implementation 
p^i>tected : 

// Generated message map functions 
^ //( (AFX_MSG(Rename_File_Dir_Dialog) 

CI // NOTE: the ClassWizard will add member functions here 

//}}AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

CString m__OldName; 

); 

///////////////////////////////////////////////////////////////////////////// 

// Rename_File_Dir_Dialog dialog 



Rename_File_Dir_Dialog: :Rename_File_Dir_Dialog (CString old_name, CWnd* pParent /*=NyLL*/) 
: CDialog (Rename_File_Dir_Dialog :: IDD, pParent) 

{ 

m_01dName=old_name ; 

m_01dName . TrimLef t ( ) ; 

m_01dName . TrimRight ( ) ; 

m_01dName. Replace ("\\'\ "/") ; 

/ / { { AFX_DATA_ I N I T ( Rename_F i 1 e_D i r_D i a 1 og ) 

m_NewName = m_OldName,- //_T(""); 

// } }AFX_DATA_INIT 

) 
* 

* Take care of the appropriate file/directory name syntax 
★ 
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est ring Rename_Fi le_Dir_Dial! 



***************************** 




'getName ( ) 




m_NewName . Remove ( ' ' ) ; 
m_NewName , Remove ('/*); 
m_NewName . Remove ( * \\ ' ) ; 

if (m_OldName [0] == ' / ' ) m_NewName=CString ( "/" ) +m_NewName; 

if {m_OldName . Find ( " . dcm" , -1 ) >-l && m_NewName . Find ( " . dcm" , -1) ==-1) 

m_NewName += CStr ing ( " . dcm" ) ; 
if {m_OldName . Find ( " . gz " , - 1 ) > - 1 && m_NewName . Find ( " . gz " , - 1 ) ==- 1 ) 

m_NewName += CStr ing ( " . gz " ) ; 
return m_NewName; 



CDialog: : DoDataExchange (pDX) ; 

// { {AFX_DATA_MAP (Rename_File_Dir__Dialog) 

DDX_Text (pDX, IDC_EDIT_RENAME , m_NewName) ; 

DDV_MaxChars (pDX, m_NewName , 2 00); 

// } }AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (Rename_File_Dir_Dialog, CDialog) 

/ / { { AFX_MSG_MAP ( Rename_F i 1 e_D i r_D i a 1 og ) 

// NOTE: the ClassWizard will add message map macros here 

//} }AFX_MSG_MAP 
E^P_MESSAGE_MAP ( ) 

/#////////////////////////////////////////////////////////////////////////// 
/gl Rename_File_Dir_Dialog message handlers 

/j\ {afx_insert_location} } 

/yj Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#^e*idif // !def ined{AFX_RENAME_FILE_DIR_DIALOG_H 5527F6 76_DCE1_11D2_96 2 7_00105A21774 F INCLUDED_) 



void Rename_File_Dir_Dialog :: DoDataExchange (CDataExchange* pDX) 
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// Ruler. h: interface for t 
// 




ler class. 




/////////////////////////////TT/////////////////////////////////m/// 

#if ! defined (AFX_RULER_H D76C3 83 3_C6DF_1 1D2_96 0 9_00 105A21774 F INCLUDED_) 

#def ine AFX_RULER_H D76C3 83 3_C6DF_11D2_9609_00105A21774F INCLUDED_ 

#if _MSC_VER > 1000 
J^pragma once 

#endif // _MSC_VER > 1000 
class Ruler 



bool r_undo, r_active; 
void SetScale(int: code) ; 

void ChangeTicksAndStyle (CDC *pDC, int d) ; 
void UpdatePopMenu (CMenu* pop) ; 

void Redraw(CDC* pDC, CPoint& p, double* zoom=NULL, double dx=0.0, double dy=0.0) 

void Draw (CDC* pDC) ; 

CString toStr ing (CPoint scroll); 

Ruler 0 ; 

virtual -Ruler () ; 

private : 

int r_ticks; 

double r_length, r_pix_length, r_pix_spacingX , r_pix_spacingY, r_scale_coef f ; 
double* r_zoom; 
CString r_scale; 
CSize r_size; 




'43 CPoint restart, r_end; 



^^^h void Clean ( ) ; 

void GetLength() ; 



#^^?idif // ! defined (AFX_RULER_H D76C3 833_C6DF_11D2_96 09_001 05A2 1774 F INCLUDED_) 
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Dn^^^the Ruler class. 

ii^ri I / / n 1 1 1 1 1 1 1 1 1 1 / n / 1 1 / 1 1 1 1 1 1 1 1 iimh 



II Ruler. cpp: implementat ior 
// 

/////////////////////////////m////////////////////////////////77T/// 

#include "stdafx.h" 
^include "DCM.h" 
#include "Ruler. h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

Ruler : :Ruler ( ) 

{ 

Clean 0 ; 



Ruler : : -Ruler ( ) 

{ 

Clean ( ) ; 



} 



/ jt ******************************************************* 

*==^ 

*J] Set all to 0 

*^ * ************************************************* 
v^4d Ruler :: Clean ( ) 

vH r_act ive=f al se ; 

r_undo = f a 1 s e ; 

r_ticks=:l; 
flJ r_start = CPoint (30, 30) ; 

r_end=CPoint (10 , 10) ; 
r. r_size=CSize ( 0 , 0) ; 

r_scale=CString ( "pixels" ) ; 
Li r_pix_spacingX=l . 0 ; r_pix_spacingY= 1 . 0 ; 
nj double x=1.0; r_zoom=&x; 
V'z r_scale_coef f = 1 . 0 ; 
J^f r_length=0 . 0 ; 
CJ r_pix_length=0 . 0 ; 



* 

* Draw a ruler (once) 
* 

************************************************** 
void Ruler :: Draw (CDC *pDC) 

{ 

CSize t; 

int dmode=SetR0P2 (pDC->m_hDC, R2_N0T) ; 

CPen* old_pen = pDC- >SelectObj ect ( &theApp . app_Pen) 

// Draw Ruler line 

pDC->MoveTo (r_9tart ) ; pDC- >LineTo ( r_end) ; 

if (r_ticks) 

{ 

// Circle the start point 

pDC->Arc (CRect (r_start . x-6 , r_start . y-6 , r_start . x+6 , restart .y+6) , r_start , r_start ) ; 
// Circle the end point 

if (r_pix_length>16 ) pDC- >Arc (CRect ( r_end . x- 6 , r_end . y-6 , r_end . x+6 , r_end . y+6 ) , r_end, r_end) 

// Draw tick points 

if { r_pix_length>4 *r_ticks) 

{ 

t=CSize( (int) ( 0 . 5+4 *r_size . cy/r_pix_length) , 
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- (^fck ( 0 , 5 + 4 *r_9i2e . cx/r_pix_length) )^^^ normal vector 

CPoint tic; 

for (int i-1; i<=^ticks; i + 

{ 

tic=CPoint ( (i*r_start .x+ (r_t icks- i+1 ) *r_end.x) / (r_ticks+l) , 

(i*r_start .y+ (r_t icks- i+1 ) *r_end.y) / (r_ticks+l) ) ; 
pDC->MoveTo(tic+t) ; pDC- >LineTo ( t ic - t ) ; 

) 

} 

} 

pDC- >SelectObj ect (old_pen) ; 
SetROP2 (pDC- >m_hDC, dmode) ; 



Display ruler depending on its status 



*********************************************************************** 
void Ruler :: Redraw (CDC *pDC, CPoint &p , double* zoom, double dx , double dy) 

{ 

if ( ! r_act ive ) return; 

// Set pixel spacing scales 

if(dx!=0.0) 

{ 

r_pix_spacingY=r_pix_spacingX=dx ; 
if(dy!=0.0) r_pix_spacingY=dy ; 

if (r_pix_spacingX>0 . 0 && r__pix_spacingY> 0 , 0 ) r_scale= "mm" ; 
else r_scale= "pixels" ; 

a ' 

-Jj // Choose drag point 

double ds=_hypot (r_start . x-p .X, r_start . y-p.y) ; 

double de=_hypot (r_end. x-p . X , r_end.y-p. y) ; 
'iJ if(ds<de) // start point 

( 

J-, if(de<5.0) return; // avoid degraded Ruler 

"^I if(r_undo) Draw(pDC) ; // remove previous ruler 

r start = CPoint (p . X , p . y) ; 

nj } " 

else // end point 

L « 

if(ds<5.0) return; // avoid degraded Ruler 
£i if(r_undo) Draw(pDC); // remove previous ruler 

f\l r_end=CPoint (p . X, p . y) ; 



} 



\-J If Update zoom if needed 
f'= if (zoom) 

{ 

r_zoom=zoom; 

int px= (p, x<<l) -10; int py= (p . y<<l) -10 ; 

if (r_start . x>px) r_start . x=px ; if ( r_start , y>py ) r_star t . y=py ; 
if (r_end . x>px) r_end.x=px; if ( r_end . y>py) r_end.y=py; 

} 

// Draw new ruler 
GetLengthO ; 

Draw(pDC); // new ruler 
r undo=true; 



* Report current measurement for the status bar 
* 

CString Ruler :: toString (CPoint scroll) 
{ 

CString info; 

info. Format ( "Distance from (%d,%d) to (%d,%d) is %.2lf ", 

r_start .x+scroll.x, r_start . y+scrol 1 . y , r_end .x+scroll.x, r_end . y+ scroll . y , 

r_length) ; 
return (info+r scale); 
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// FileBrowser , cpp 
II 



impleme. 



ion file 



#include "stdafx.h" 

# include " FileBrowser . h" 

if include " Rename_File_Dir_Dialog . h" 

# include "CreateDirectoryDialog . h" 

# include " AccurateTimer . h" 

# include "Compressor . h" 

#include <io.h> 



#ifdef _DEBUG 

^define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[1 = 

#endif 



FILE 



// File list types 
#define FILE 0 
#define DFILE 2 
#define DFILE_VU 4 
#define DIR 6 
#define ROOT 8 

///////////////////////////////////////////////////////////////////////////// 
// FileBrowser dialog 



FileBrowser :: FileBrowser (CWnd* pParent /*=NULL*/) 

: CDialog ( FileBrowser :: IDD, pParent) , m_InSession ( " DCM" ) 

H 

'41 II { {AFX_DATA_INIT (FileBrowser) 

01 Tn_Directory = CString(""); 
~zz. m_NumFiles = 0; 

'^S m_NumFilesTotal = 0; 

""J m_Directory_FTP = _T ( " " ) ; 

J J m_NumFiles_FTP = 0; 

m_NumFilesTotal_FTP = 0; 
'"^i m_SpeedInfo = _T ( " " ) ; 

lU 11} }afx_data_init 

2 m_ParentDirectory=CStr ing ( " " ) ; 
m_RequestedFile = CString ( " " ) ; 

Cr m pFTPConnect ion=NULL ; 

: O 

FileBrowser : : -FileBrowser ( ) 

rj deleteFTPO ; 

m_InSession . Close ( ) ; 
m_ImageList . DeletelmageList ( ) ; 

} 

/******************★********************************************************** 
* 

* Initialize main parameters 
* 

******************************************************************************/ 
bool FileBrowser :: Initialize (CString temp_dir) 

{ 

if (m_ImageList . m_hImageLi st ==NULL) 
( 

m_ImageList . Create (16 , 17, ILC_C0L0R4 ,9,1); 
/* Initialize Browser icons */ 
HICON hicn; 

for(int nic=0; nic<9; nic++) 
{ 

hicn=AfxGetApp() - >LoadIcon (IDI_FI LE) ; 
m_ImageList -Add (hicn) ; 

} 

hicn=AfxGetApp { ) ->LoadIcon ( IDI_DFILE) ; m_ImageList . Replace (DFILE, hicn) ,- 

hicn=Af xGetApp ( ) - >LoadIcon ( IDI_DFILE_VU) ; m_ImageList . Replace ( DFILE_VU, hicn) 
hicn=Af xGetApp { ) - >LoadIcon { IDI_DIR) ; m_ImageList . Replace (DIR, hicn) ; 

hicn=Af xGetApp ( ) - >LoadIcon ( IDI_ROOT) ; m_ImageList . Replace (ROOT, hicn) ; 

: :DeleteObj ect (hicn) ; 



1 



FileBrowser . cpp 



10/27/00 




// Get temp file name 
m_TempFile = temp_dir+CString ( " /copy_'* ) ; 

// Initialize hash table of opened files 
m_Opened. InitHashTable ( 3 7) ; 

// Directory parameters 
m_Directory=" " ; 
m_Directory_FTP=" " ; 

// Preset FTP parameters 
m_INhost=" " ; 
m_INlogon= " " ; 
m_INpassword= " " ; 

// Display parameters 
m_DCMonly_loc= true ; 
m_DCMonly_FTP= false ; 
m_FilterFTP=f alse; 

return true; 



CDialog: : DoDataExchange ( pDX) ; 
P=: //{ {AFX_DATA_MAP (FileBrowser) 

^? DDX_Control (pDX, IDC_LIST_FTP , m_List_FTP) ; 

-4J DDX_Control (pDX, IDC_FILE_BROWSE_COMBO , m_Dr iveList ) ; 

m DDX_Control (pDX, IDC_LIST, m_List); 

,1^ DDX_Text (pDX, IDC_DIRECTORY , m_Directory) ; 

DDV_MaxChars (pDX , m_Directory, 200); 
N DDX_Text (pDX, IDC_NUMFILES , m_NumFiles); 
aj DDV_MinMaxInt (pDX, m_NumFiles, -1, 1000000); 
J% DDX_Text (pDX, IDC_NUMFILES_TOT , m_NumFi lesTotal ) ; 
21 DDV_MinMaxInt (pDX, m_NumFi lesTotal , -1, 100000); 
Hi DDX_Text (pDX, IDC_DIRECTORY_FTP , m_Directory_FTP ) ; 
E DDV_MaxChars (pDX , m_Directory_FTP , 200); 
Lh DDX_Text (pDX, IDC_NUMFI LES_FTP , m_NumFiles_FTP) ; 
L~ DDV_MinMaxInt (pDX, m_NumFi les_FTP , -1, 10000); 
y DDX_Text (pDX, IDC_NUMFI LES_TOT_FTP , m_NumFilesTotal_FTP) ; 
nJ DDV_MinMaxInt (pDX, m_NumFi lesTotal_FTP , -1, 10000); 
\\ DDX_Text (pDX, IDC_HOST_FTP , m_INhost); 

DDV_MaxChars (pDX, m_INhost, 100); 
y DDX_Text (pDX, IDC_SPEED_FTP , m_SpeedInf o) ; 
l5 / / } } AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (FileBrowser , CDialog) 
// { {AFX_MSG_MAP (FileBrowser) 

ON_NOT I FY ( NM_DBLCLK , I DC_L 1ST, OnDb 1 cl kLi s t ) 

ON_CBN_SELCHANGE ( IDC_FI LE_BROWSE_COMBO , OnSelchangeFi leBrowseCombo ) 

ON_NOT I FY ( LVN_COLUMNCL I CK , I DC_L 1ST, OnCo 1 umnc 1 i ckL i s t ) 

ON_BN_CLICKED ( IDC_BUTTON_FTP_GET , OnBut tonFtpGe t ) 

ON_BN_CLICKED ( IDC_BUTTON_FTP_PUT , OnBut tonFtpPut ) 

ON_COMMAND ( ID_LOCALHOST_REFRESH , OnLocRef resh) 

ON_COMMAND ( ID_REMOTEHOST_REFRESH , OnFtpRef resh) 

ON_COMMAND ( ID_REMOTEHOST_CONNECT , OnGoFtp) 

ON_COMMAND ( I D_LOC ALHOST_SHOWD I COMONL Y , OnLoca Iho s t ShowD I COMon ly ) 

ON_UPDATE_COMMAND_UI ( ID_LOCALHOST_SHOWDICOMONLY , OnUpdat eLoca Ihost ShowDICOMonly ) 
ON_COMMAND ( ID_REMOTEHOST_F I LTERDICOMFI LES , OnRemotehostFilterDICOMf iles) 

ON_UPDATE_COMMAND_UI ( ID_REMOTEHOST_FILTERDICOMFILES , OnUpdateRemotehostFilterDICOMf iles) 
ON_COMMAND ( ID_REMOTEHOST_SHOWDICOMONLY , OnRemotehostShowDICOMonly ) 

ON_UPDATE_COMMAND_UI ( ID_REMOTEH0ST_SHOWDIC0MONLY , OnUpdateRemotehost ShowDICOMonly) 

ON_COMMAND ( ID_LOCALHOST_DELETE , OnLocalhos tDe le te ) 

ON_COMMAND ( ID_REMOTEHOST_DELETE , OnRemotehos tDe let e ) 

ON_COMMAND ( ID_LOCALHOST_RENAME , OnLocalhos tRename ) 

ON_COMMAND ( ID_REMOTEHOST_RENAME , OnRemotehos tRename ) 

ON_NOTIFY(NM_RCLICK, IDC_LIST, OnRcl ickList ) 

ON_COMMAND ( ID_LOCALHOST_CREATENEWDI RECTORY , OnLocalhos tCreateNewDirectory) 



void 



FileBrowser: : DoDataExchange ( CDataExchange* pDX) 
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ON_COMMAND{ ID_REMOTEHOST^M|ATENEWDIRECTORY, OnRemotehostCr^^MewDirect ory ) 
ON_COMMAND( ID_REMOTEHOS'i|^Bn, OnRemotehostOpen) 
ON_COMMAND( ID_LOCALH0ST_O^N, OnLocalhostOpen) 

ON__UPDATE_COMMAND_UI ( ID_LOCALHOST_OPEN , OnUpdat eLocalhostOpen) 
0N_N0TIFY{NM_RCLICK, IDC_LIST_FTP, OnRclickList) 
ON_NOTIFY(NM_DBLCLK, IDC_LIST_FTP, OnDblc IkLi st ) 
ON_NOTI FY ( LVN_COLUMNCL I CK, I DC_L I ST_FTP , OnColumncl ickLi s t ) 
ON_COMMAND ( ID_LOCALHOST_COPYTOREMOTEHOST , OnBut tonFtpPut ) 
ON_COMMAND ( ID_REMOTEHOST_COPYTOREMOTEHOST , OnBut tonFtpGet ) 
ON_UPDATE_COMMAND_UI ( ID_REMOTEHOST_OPEN , OnUpdateRemot ehos tOpen ) 
// } }AFX_MSG_MAP 

ON_COMMAND{ID_BROWSER_CLOSE, CDialog : :OnCancel) 
ON_MESSAGE(WM_KICKIDLE, OnKickldle) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// FileBrowser message handlers 



* Global-scope callback function to sort list elements 
* 

static int CALLBACK Li stCompareFunc ( LPARAM iParaml, LPARAM lParam2, LPARAM iParamSort) 
( 

CString *ll= (CString*) ( (DWORD) iParaml) ; 
CString *12= (CString*) ( (DWORD) lParam2) ; 
if (lParamSort = = 0) return 1 1 - >CompareNoCase ( * 12 ) ; 
^: else return l2->CompareNoCase ( *ll) ; 

}\i3 



^ i--^ ******************* ie ie it it * ic * it * ie ************** * 

*J% Initialize DCM file browser 

*t-iA ***************************************************************************^ 
BOOL FileBrowser :: OnlnitDialog 0 

CDialog : :OnInitDialog () ; 

nj /* Set list icons */ 

SJ m_List_FTP . Set ImageList (&m_ImageList , LVSIL_SMALL) ; 
m_List . Set ImageList (&m_ImageList , LVSIL_SMALL) ; 

LJ /* Fill the list of available drives */ 
m_DriveList . ResetContent ( ) ; 

m_DriveList -Dir (DDL_DRIVES | DDL_EXCLUSIVE , " * " ) ; 

/* Initialize Local Browser columns */ 

m_List . InsertColumn(0,NULL,LVCFMT_CENTER, 18,0) ; 

m_List . InsertColumn (1 , "Patient Name" , LVCFMT_LEFT, 100,1) ; 

m_List . InsertColumn(2, "Study Date" , LVCFMT_LEFT , 100) ; 

m_List. InsertColumn (3, "File Name" , LVCFMT_LEFT , 100) ; 

m_List, InsertColumn (4 , "File Size" , LVCFMT_RIGHT , 100) ; 

m_List . InsertColumn (5, "File Creation Date" , LVCFMT_RIGHT , 100) ; 

m_List. InsertColumn (6, "Last Access Date ", LVCFMT_RIGHT , 100 ) ; 

/* Initialize FTP Browser columns */ 

m_Li st_FTP . InsertColumn ( 0 , NULL , LVCFMT_CENTER ,18,0) ; 
m_List_FTP. InsertColumn (1, "Patient Name" , LVCFMT_LEFT , 100, 1) ; 
m_List_FTP. InsertColumn (2, "Study Date" , LVCFMT_LEFT , 100) ; 
m_List_FTP. InsertColumn ( 3 , "File Name" , LVCFMT_LEFT , 100) ; 
m_List_FTP. InsertColumn(4 , "File Size" , LVCFMT_RIGHT , 100) ; 
m_List_FTP. InsertColumn ( 5 , "File Creation Date" , LVCFMT_RIGHT , 100) ; 
m List FTP. InsertColumn (6, "Last Access Date ", LVCFMT_RIGHT , 100 ) ; 



/* Extract current local directory information */ 
FindFiles (m_List , false , m_Di rectory) ; 
FindFiles (m_List_FTP, true , m_Directory_FTP) ; 
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( LTO SETEXTENDEDLISTVIEWSTYLE, 0 , LVS e!PfI 



/* enforce row selectior 

m_List_FTP. SendMessage ( L:?Pr_SETEXTENDEDLISTVIEWSTYLE , 0 , LVS_e?^FULLROWS ELECT ); 
m_List .SendMessage ( LVM_SETEXTENDEDLI STVIEWSTYLE , 0 , LVS_EX_FULLROWSELECT ) ; 
// or 

//ListView_SetExtendedListViewStyle {m_lisControl .m_hWnd, LVS_EX_FULLROWSELECT) ; 

/* Display updated data */ 
UpdateData( FALSE) ; 

return TRUE; 



* 

* Extract directory information 
* 

* Return -liffails 

* or number of elements found 
* 

*********************************************** 

int FileBrowser :: FindFiles (CListCtrlSc myList, bool ftp, CString directory) 

{ 

BOOL bFound; 
int nitem; 

CString fname, text; 
CTime atime, ctime; 
CFileFind finder ; 
CFtpFileFind* FTPf inder=NULL ; 

// Get FTP connection, if needed 
^ if (ftp) 

if ( IresetFTPO ) return -1; 
Ji FTPf inder=new CFtpFileFind (m_pFTPConnect ion) ; 

.11 if ( ! FTPf inder ) return -1; 

SI • 

s // Set current directory 

L.t if (ftp) 

%l { 

'—^ if (directory== " " ) m_pFTPConnect ion- >GetCurrentDirectory (directory ) ; 

nj directory .Replace ( "W" , '7 " ) ; 

s if ( m_pFTPConnect ion - >Set Current Directory (directory) = = FALSE) 

A { 

AfxMessageBox ( "Access to " +directory+CStr ing ( " denied" ), MB_ICONEXCLAMATION | MB_OK) 
Q delete FTPfinder; 

return -1; 

} 

m_Directory_FTP= est ring (directory) ; 

} 

el se 
{ 

if (directory " " ) 
{ 

char buffer [200] ; 

GetCurrentDirectory (200, buffer) ; 
directory=CString (buf f er ) ; 
directory , TrimRight ( ) ; 

} 

directory . Replace ( "\\" ,"/"); 

if ( SetCurrentDirectory (directory ) ==FALSE) 

{ 

AfxMessageBox ( "Cannot access directory " +directory , MB_ICONEXCLAMATION | MB_OK) ; 
return -1; 

} 

m_Directory=CString (directory) ; 

) 



// OK, we can start reading files now - Clean item list 
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myList . DeleteAllItems ( ) ;i 

int nfilestot = 0, num_ent:^^B=0 ; 



// Get file info 

if (ftp) bFound = FTPf inder- >FindFi le ( CString (directory ) +CString ("/*")) ; 
else bFound = f inder . FindFi le (CString (directory ) +CString ("/*")) ; 
BOOL isdir ; 
while (bFound) 

{ 

if (ftp) 
{ 

bFound = FTPf inder- >FindNext Fi le () ; 

i sdir = FTPf inder- > I sDi rectory ( ) ; 

f name=ETPf inder->GetFileName ( ) ; 

text . Format ( "%lu" , FTPf inder- >GetLength ( ) ) ; 

FTPf inder->GetLastAccessTime (atime) ; 

FTPf inder->GetCreationTime (ctime) ; 

} 

el se 

{ 

bFound = f inder . FindNextFi le () ; 

isdir=f inder . I sDirectory ( ) ; 

fname=f inder . GetFileName ( ) ; 

text . Format ( " %lu'\ finder . GetLength () ) ; 

finder . GetLastAccessTime (atime) ; 

finder .GetCreationTime (ctime) ; 

} 

f name .Replace ( "\\" , "/") ; 
if (isdir) // directory 

{ 

if ( f name== " . " ) continue; // do not display current directory 

if (fname==" . . " ) 

{ 

nitem=myList . Insert I tem ( LVIF_PARAM | LVIF^IMAGE , num_entries , NULL , 0, 0,ROOT, 0) 
myList . Set Item (nit em, 1 , LVIF_TEXT, "< Parent Directory>" ,0,0,0,0) ; 
myList . Set Item (nit em, 3 , LVIF_TEXT, fname+'7" ,0,0,0,0) ; 

} 

else 
{ 

nitem=myList . Insert I tern ( LVIF_PARAM | LVIF_IMAGE , num_entries , NULL, 0, 0,DIR, 0) ; 
myList . Set I tern (ni tem , 1 , LVIF_TEXT, "< Subdirectory > " ,0,0,0,0) ; 
myList . Set Item (nit em, 3 , LVIF_TEXT, "/"+fname, 0,0,0,0) ; 

} 

myList . Set Item (ni tem, 2 , LVIF_TEXT , NULL, 0 , 0,0,0) ; 

} 

else // file 

{ 

nf ilestot++ ; 
bool opened; 

// Process compressed or uncompressed DICOM 

if (ftp) 

{ 

if ( f name [0] == ' . ' ) continue; // do not process Unix system files 
opened==OpenedFilesListFind (m_Directory_FTP+CString ( " / " ) +f name) ; 

} 

else opened=OpenedFilesListFind (m_Directory+CStr ing ( " / " ) +f name) ; 

// Grab main file data 

int f iletype=FILE ; 

if (opened) f iletype=DFILE_VU; 

nitem=myList . Insert I tem ( LVI F_PARAM | LVIF_IMAGE , num_entries , NULL , 0, 0, f iletype, 0) , 
myList , Set I tem (ni tem, 1 , LVIF_TEXT, "",0,0,0,0) ; 
myList . Set I tem (ni tem, 2 , LVIF_TEXT, "",0,0,0,0) ; 
myList . Set I tem (nitem, 3 , LVIF_TEXT, f name, 0,0,0,0) ; 

} 

myLi st .Set I temText (ni tem, 4 , text ) ; 

myList . Set I temText (nitem, 5 , ctime . Format ( " %d . %m. %Y" ) ) ; 
myList . SetltemText (nitem, 6 , atime . Format ( " %d. %m. %Y" ) ) ; 
num_entr ies++ ; 

} 

// Get parent directory, clean up 

int sl=:max (directory . Reverse Find ( ' \ \ ' ) / directory . Reverse Find ('/')); 
if (ftp) 
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t delete FTPfinder; 
ctory FTP=CStrinq (m Directory FT^^ 



FTPf inder->Close ( ) 

if (sl< = 0) m_Parentd^ectory_FTP=CString (m_Directory_FT?T 
else m_ParentDirectory_FTP=CString (directory . Lef t ( si ) ) ; 

// Set file statistics 
m_NumFilesTotal_FTP=nf ilestot ; 

// Set parent directory - time and size entries are invalid 
nitem=myList . Insert I tern ( LVI F_PARAM | LVI F_IMAGE , num_entries , NULL , 0, 0 , ROOT, 0) 
myList . Set Item (ni tern, 1 , LVIF_TEXT, "< Parent Directory>" ,0,0,0,0) ; 
myList . Setltem{nitem, 3 , LVIF_TEXT, "../", 0 , 0 , 0 , 0 ) ; 
myList . Setltem(nitem, 2 , LVI F_TEXT , NULL , 0 , 0 ,0,0); 
myList . Set ItemText (nitem, 4 , text ) ; //!! invalid 

myList . Set ItemText (nitem, 5 , ctime . Format ( " %d. %m. %Y" ) ) ; // ! ! invalid 
myList . Set ItemText (nitem, 6 , atime . Format ( " %d . %m. %Y" ) ) ; // ! ! invalid 
resetFTP ( ) ; 



else 



finder , Close ( ) ; 

if (sl<=0) m_ParentDirectory=CString (m_Directory) ; 

else m_ParentDirectory=CString (directory . Lef t ( si ) ) ; 

// Set file statistics 

m_NumFilesTotal=nf ilestot ; 

// Set current drive 

int cl=:m_Directory , Find ( ' : ' ) ; 

est ring dr = CString (m_Di rectory . Lef t ( cl ) ) ; 

dr=:CString(" [-") +dr + CStr ing ( " - ] ") ; 

if (m__DriveList . SelectString ( - 1 , dr ) < 0) return -1; 



Jj If Locate DICOM files 

fk^ if(!ftp II (ftp && m_FilterFTP) ) DICOM_Filter (myList , f tp) ; 

// Sort 
•A'-. SortByColumn ( 1 , myList ) ; 

'-^ /I Update dialog window and exit 
nj UpdateData (FALSE) ; 
return m_NumFiles; 

□ 

/ **************************************************** 

* 

* _^ Sort browser list "myList" by specified column "col" 

* L,J 

* f=T&* ***************************************************** 

void FileBrowser :: SortByColumn ( int col, CListCtrlSc myList) 

{ 

int entries=myList . Get I temCount ( ) ; 

if(entries<2 || col<0 || myLi st . GetColumnWidth ( col ) < 1 ) return; // Nothing to sort 
CString *keys = new CString [entries] ; 
if(!keys) return; // Low memory 

int itemState, col_type; 
CString ts, pname ; 

// Find column type (in a block, to preserve memory) 

col_type=0 ; 

{ 

char buffer [50] ; 
LVCOLUMN cl; 

cl . iOrder=col ; cl . iSubl tem=col ; cl . pszText =buf f er ; 
cl .mask=LVCF_TEXT | LVCF_ORDER | LVCF_SUB I TEM ; 
myList . Get Column ( col , &cl ) ; 
CString col_name=CString (buf f er ) ; 

if (col_name . Find ( "Date" , 0) >0) col_type=l; // date type 
else if ( col_name . Find (" Size ", 0) >0) col_type=2; // size type 

} 

// Set appropriate sort key 
for(int i=0; i<entries; i++) 
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ate ( 1 , myList ) ; 



itemState=Get I temlma 
// Obtain item key stTTng 
ts=CString (myList . Get I temText ( i , col) ) ; 

if {itemState==FILE || i temState==DFILE || i temState==DFILE_VU) // files 
{ 

pname = est ring (myList . Get I temText ( i , 1 ) ) ; 
if (col_type==l) // date string 

keys [i] =CString (ts . Right (4) +ts.Mid (3 , 2) +ts . Left (2) ) +pname ; 
else if ( col_type==2) // file size 

keys [i] =CString( '0' ,16-ts. Get Length ( ) ) +t s+pname ; 
else if(col!=l) // name, except patient name 

keys [ i ] = t s+pname ; 
else keys [ i] =pname+CString (myList . Get I temText ( i , 3)); 

} 

else keys[i)=ts; // directories 

// Account for root -directory-file priority adding priority prefix 
if (col_type = = l) ts. Format ( "%d" , itemState) ; 
else ts . Format ( " %d" , 9 -itemState) ; 
keys[i] = ts+keys[i]; 

myList .SetItemData(i, (DWORD) (&(keys[i] ) ) ) ; 

} 

myList . Sort Items ( ListCompareFunc , ( col_type = = 1 ) ) ; 
delete [] keys; 
return ; 



^* ***************************************************** 

*cs 

*HIJ Update state of the item "item" in the list "myList" 

******************************************************** 
i"M FileBrowser :: Get I temlmageState ( int nitem, CListCtrl& myList) 

ijj LVITEM itm; 

Zl itm. iltem=nitem; itm. mask=LVIF_IMAGE ; // we want to retrieve only image state 

itm . iSubl tem= 0 ; 
ly myList . Get Item (&itm) ; 

return itm.ilmage; 

)L 

int FileBrowser :: FindName (CString fname, CListCtrl &myList) 
ffj for (int n=0; n<myLi st . Get I temCount () ; n + +) 

if (CString (myList . GetltemText (n, 3) ) ==f name) return n; 
ri return -1; 

void FileBrowser :: Set ItemlmageState ( int nitem, int state, CListCtrl£c myList) 
{ 

LVITEM itm; 

itm. iltem=nitem; i tm . mask=LVI F_PARAM | LVI F_IMAGE ; // retrieve these parameters 

m_List .Get Item (Stitm) ; 

itm. i Image= state ; itm. iSubItem=0 ; 

myList . Set Item(&itm) ; 



* Get selected position in the file list 
* 

******************************************** 
int FileBrowser :: GetSelectedPosi tion (bool local) 

{ 

int sel=-l; 
POSITION pos; 

if (local) pos=m_List . GetFirstSelectedl temPosit ion { ) ; 
else pos=m_List_FTP . GetFirstSelectedl temPosit ion ( ) ; 

if (pos == NULL) return -1; // nothing selected 

if (local) sel = m_List . GetNextSelectedl tem (pos) ; 
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else sel = m_List^^fc . GetNextSelectedl tem (pos) ; 

return sel; 

) ^ 

* 

* Process Double-left clicks on the files list 
* 

******************************************************************************** 

void FileBrowser : lOnDblclkList (NMHDR* pNMHDR, LRESULT* pResult) 

{ 

*pResult = 0; 

bool local= (pNMHDR->idFrom==IDC_LIST) ; 
int item=GetSelectedPosit ion ( local) ; 
if(item>=0) OpenPi le_or_Directory ( local , item) ; 



* 

* Process directory choice list 
* 

void FileBrowser: : OnSelchangeFileBrowseCombo ( } 

{ 

CString drive; 

m_DriveLi3t . GetLBText {m_DriveList .GetCurSel ( ) , drive) ; 
drive=drive .Mid (2 , drive . GetLength ( ) -4 ) ; 

CString dcur=CString (m_Directory) . Left (drive . GetLength ( ) ) ; 

if (drive . CompareNoCase (dcur) =^0) return; 

drive . MakeUpper 0 ; 
di drive=drive+CStr ing (":/"); 
fH== FindFiles (m_List , false, drive); 

*********************************************************** 

* ~r 

Sort column when clicked on column header 

**************************************************************** 

void FileBrowser : :OnColumnclickList (NMHDR* pNMHDR, LRESULT* pResult) 
h:^ CListCtrl* myList; 

nj bool local= (pNMHDR->idFrom==IDC_LIST) ; 

if (local) myList = 5cm_List ; 
_3 else myList=&m_List_FTP; 

y NM_LISTVIEW* pnm = (NM_L I STVI EW* ) pNMHDR ; 
f] int subitem=pnm->iSubItem; 

if ( subi tem>0) SortByColumn ( subi tern, (*myList)); 

*pResult = 0; 

} 

* 

* Keeping track of opened files 
* 

************************************************************* 
void FileBrowser : rOpenedFilesListAdd (CString fullname) 

{ 

m_Opened [fullname] =1 ; 

} 

bool FileBrowser : :OpenedFilesListFind (CString fullname) 

{ 

int val=l; 

return (m_Opened . Lookup ( ful Iname , val ) ==TRUE) ; 

} 

void FileBrowser : :OpenedFilesListRemove (CString fullname) 

{ 

m_Opened . RemoveKey ( f ul Iname) ; 

} 
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/*■**★******•***************** i^MT* ******************************** ********** 
* 

* Start or close FTP sesion 
* 

void FileBrowser : :OnGoFtp ( ) 

{ 

FTPLoginDialog fid; 

f Id . SetData (m_INhost , m_INlogon, m_INpassword) ; 
if (f Id.DoModal () ==IDOK) 
{ 

if ( !resetFTP{f ld.m_Host , f ld.m_User, f ld.m_Pwd) ) return; 
FindFiles (m_Li st_FTP , true) ; 

} 

return; 



* Functions to reset and delete FTP connection 
* 

**************************************************************************/ 
bool FileBrowser :: reset FTP (CString host, CString logon, CString pwd) 

{ 

m_INhost=host ; m_INlogon=logon ; m_INpassword=pwd; 
„. if (m_INhost== " " ) return false; 
try 

^ { 

Qj deleteFTPO ; 

^- m_pFTPConnection=m_InSession . GetFtpConnect ion (host , logon, pwd) ; 

^ } 

catch (CInternetExcept ion* pEx) 

ui ( 

7: TCHAR exCause [255] ; 

CString info; 
tU pEx- >GetErrorMessage (exCause , 255); 

^ inf o=CString (exCause) ; 

^, info += _T("Some files may not be displayed."); 

AfxMessageBox (inf o, MB_ICONEXCLAMATION | MB__OK) ; 
□ deleteFTPO; pEx- >Delete ( ) ; 

f|j return false; 

if ( ! m_pFTPConnection) 

a { 

P AfxMessageBox ( "Cannot connect to remote computer MB_ICONEXCLAMAT ION | MB_OK) 

return false; 

) 

return true; 

} 

bool FileBrowser :: resetFTP ( ) 
{ 

return reset FTP (m_INhost , m_INlogon , m_INpassword) ; 

} 

void FileBrowser : ideleteFTP ( ) 

{ 

if {m_pFTPConnection) 

( 

m_pFTPConnection->Close ( ) ; 
delete m_pFTPConnect ion ; 
m_pFTPConnection=NULL ; 

} 

} 



Locate DICOM images in the given list 
based on file contents 
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void FileBrowser: :DICOM_Fil 

{ 

int nstate, ndcm^^^les= 0 ; 

char ctmp [64 ] ; 

CString fname, locname, f namepath , tmp ; 

DICOMDataObject dob; 



t^^CListCtrl £cmyList, bool ftp) ^ 

m^^n.es=0: 



// Filter unclassified files only 

for (int n=0; n<myLi st . Get I temCount ( ) ; n+ + ) 

{ 

net at e=Get I tern Images t ate (n , myList ) ; 

if (nstate ! =FILE && nstate ! =DFILE_VU) continue; 

f name =CSt ring (myList .GetltemText (n, 3) ) ; 

// Create local file, if ftp connection 

if (ftp) 

{ 

f namepath=m_Directory_FTP+CStr ing ( " / " ) +f name ; 
locname=:m_TempFile + f name ; 

if ( ! FileTransf er (fnamepath, locname, true, 

DICOMObject : : HighestPreviewFi leSize ) ) continue; 

} 

else locname=f namepath=m_Directory+CString ( " / " ) +f name ; 
// Uncompress if needed 

if ( locname . Find ( " . gz " , 0 ) >0 ) // compressed DICOM 

{ 

tmp=m_TempFile+f name+CString ( "_un2ip" ) ; 

if ( ! Compressor : : Z_unCompress ( locname , tmp , 1 ) ) continue ; 
locname=tmp ; 

} 

// Load DICOM object in preview mode 
dob . Reset ( ) ; 

if ( ! dob . LoadFromFile ( (char* ) (LPCSTR) locname , true) ) 

{ 

if( (!ftp && m_DCMonly_loc) || (ftp && m_DCMonly_FTP) ) 
( 

myList . Deleteltem(n) ; n--; 

} 

cont inue ; 

} 

DICOMRecord dfr; 
dfr.SetRecord(dob, ; 

myList . Set Item (n, 1 , LVIF_TEXT , df r . GetPat ientName ( ) ,0,0,0,0) 

dfr . Format StudyDate ( ctmp , 64 , f al se ) ; 

myList . Set Item (n, 2 , LVIF_TEXT , ctmp , 0,0,0,0) ; 

if (nstate ! =DFILE_VU) Set I temlmageState (n, DF I LE, myList ) ; 

ndcm_f iles++ ; 

if (n%5==0) 

{ 

myList . Redrawltems ( 1 , n) ; myLi st . UpdateWindow ( ) ; 

} 

} 

if (ftp) m_NumFiles_FTP=ndcm_f iles ; 
else m NumFiles=ndcm files; 



* Refresh current FTP Window 

***************************************************** 

void FileBrowser : :OnFtpRefresh () 

{ 

if ( ! resetFTP () ) return; 

FindFiles (m_List_FTP, true, m_Directory_FTP) ; 

} 

void FileBrowser : :OnLocRefresh ( ) 

{ 

FindFiles (m_Li3t , false, m_Directory) ; 
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* 

* Get a binary file from remote server 



void FileBrowser: : OnBut tonFtpGet ( ) 

{ 

POSITION pos = m_List_FTP, GetFirstSelectedltemPosition { ) ; 
if (pos == NULL) 



AfxMessageBox (" Please select a remote file first\nby clicking on its icon", MB_ICONEXCLAMAT 
ION I MB_OK) ; 

return; 

} 

int n = m_List_FTP .GetNextSelectedltem(pos) ; 
int nstatus=Get ItemlmageState (n, m_List_FTP) ; 

if(nstatus != FILE && nstatus != DFILE && nstatus != DFILE_VU) 
{ 

AfxMessageBox ( "Cannot copy directories MB_ICONEXCLAMATION | MB_OK) ; 
return; 

) 

CString ftp_fname = CStr ing (m_List_FTP . Get ItemText (n, 3 ) ) ; 
CString loc_f name=m_Directory+ " / " +f tp_f name ; 
if (FindName(ftp_fname,m_List) >0) 



if (AfxMessageBox ("Overwrite " +loc_f name+ " ?" , 

MB_ICONEXCLAMATION | MB_YESNO) == IDNO) return; 
J] } 

01 FileTransfer (m_Directory_FTP+"/"+f tp_fname, loc_fname, true, -1) ; 
.J-. OnLocRef resh ( ) ,- 
~ Beep(500,50) ; 

Put a binary file to a remote server 
id FileBrowser : :OnButtonFtpPut ( ) 



POSITION pos = m_List .GetFirstSelectedltemPosition ( ) ; 
OJ if (pos == NULL) 

^2 AfxMessageBox ( "Please select a local file first\nby clicking on its icon" , MB_ICONEXCLAMATI 

Okf I MB_OK) ; 
£J return; 
} 

int n = m_List .GetNextSelectedltem(pos) ; 
int nstatus=Get I temlmageState (n, m_List ) ; 

if (nstatus !- FILE && nstatus != DFILE && nstatus != DFILE_VU) 
{ 

AfxMessageBox ( "Cannot copy director ies ", MB_ICONEXCLAMATION | MB_OK) ; 
return; 

} 

CString loc_fname = CStr ing (m_List . Get I temText (n , 3 ) ) ; 
CString f tp_f name=m_Directory_FTP+ " / " +loc_f name ; 
if (FindName ( loc_f name , m_List_FTP) >0) 

{ 

if (AfxMessageBox ( "Overwrite " +f tp_f name+ " 

MB_ICONEXCLAMATION | MB_YESNO) == IDNO) return; 

} 

if ( ! FileTransfer ( f tp_f name , m_Directory+ "/" +loc_f name , false, -1) ) 

{ 

AfxMessageBox ( "Cannot copy. \nMake sure you have remote host connected" , MB_ICONEXCLAMAT ION 
I MB_OK) ; 

return ; 

} 

OnFtpRef resh ( ) ; 
Beep(400, 50) ; 
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5 transfers 



* Handle all kinds of f i le transfers 

* between local and remote computers 
* 

************************************************* 

bool FileBrowser : : FileTransf er (CString ftp_name, CString loc_name, bool to_local, 

int size) 

{ 

static bool f ai led= f al se ; 
BOOL done ; 
double vremia; 

if(size==0) return true; // empty file 
CInternetFile* ifile=NULL; 
_iobuf* floc; 
BYTE* bf=NULL; 



// Refresh FTP connection 

if ( ! resetFTP ( ) ) return false; 



// Try to copy 
try 

{ 

if(size<0) // Transfer the entire file at once 

{ 

long fsi2e=0; 

AccurateTimer ac; ac.Begin(); 

if (to_local) done=m_pFTPConnection->GetFile (f tp_name , loc_name , FALSE) 

else done=m_pFTPConnection->PutFile ( loc_name , ftp_name) ; 

// Find size of the copied file 

{ 

_iobuf* t_file; 

t_f ile = f open ( loc_name , " rb" ) 

if (t_file != NULL) 

{ 

fsize = _f ilelength(_f ileno (t_f ile) ) ; // local file size 
f close ( t_f i le) ; 

) 

} 

vremia=ac . End ( ) ; 

i f { vremia> 0 . 1 && fsize>0) 

{ 

m_SpeedInfo. Format ( " % . 31f Kbytes/sec" , fsize/ (1000, 0*vremia) ) ; 
UpdateData( FALSE) ; 

} 

return (done==TRUE) ; 

} 

else if(size>0) 
{ 

try { bf=new BYTE [size] ; } 

catch(...) ( return false; } 

if(!bf) return false; 

// Open local and remote files 

if ( to_local) 

( 

if ile=m_pFTPConnection- >OpenFile (f tp_name , GENERIC_READ , 

FTP_TRANSFER_TYPE_BINARY, 1) ; 

f loc = f open ( loc_name , "wb" ) ; 

} 

else 

{ 

if ile=m_pFTPConnect ion- >OpenFile ( f tp_name , GENERIC_WRITE, 

FTP_TRANSFER_TYPE_BINARY, 1) ; 

f loc = f open { loc_name , "rb'*) ; 

} 

bool can_transfer = (floc!=NULL if ile ! =NULL) ; 
if ( can_transf er ) 

{ 

int lu; 

if (to_local) 

{ 

lu=if ile->Read (bf , size) ; 
fwrite (bf , 1 , lu, floc) ; 

} 
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else 

{ 

lu= f readlTS^', 1 , size , f loc) ; 
if ile->Write (bf , lu) ; 

} 

} 

delete [] bf ; bf=NULL; 

f close ( floe) ; if ile- >Close ( ) ; delete ifile; 
return can_transf er ; 

) 

} 

catch (CInternetExcept ion* ex) 
{ 

if ( 'failed) 
{ 

ex->ReportError (MB_ICONEXCLAMATION | MB_OK) ; 
f ailed=true ; 

} 

ex- >Delete ( ) ; 

if{bf) delete [] bf ; 

if (if ile) 

{ 

try { if ile->Close ( ) ; } catch (CInternetExcept ion* ex2) { ex2 - >Delete ( ) 
delete ifile; 

} 

return false; 

) 

return false; 



************************************************************************ 
Local: "Show DICOMs only" message handler 

************************************************** 

vgid FileBrowser: : OnLocalhostShowDICOMonly ( ) 

m_DCMonly_loc =! m_DCMonly_loc ; 
OJ OnLocRef resh ( ) ; 
Beep(500, 50) ; 

vGid FileBrowser: : OnUpdateLocalhost ShowDICOMonly ( CCmdUI * pCmdUI) 

{O 

f|j pCmdUI ->SetCheck (m_DCMonly_loc) ; 



* ' Remote: "Filter DICOM" message handler 
* 

************************************************ 
void FileBrowser: : OnRemotehost Fi 1 terDICOMf i les ( ) 

{ 

m_FilterFTP = ! m_FilterFTP; 
OnFtpRef resh ( ) ; 
Beep (400, 50) ; 

} 

void FileBrowser: :OnUpdateRemotehostFilterDICOMfiles (CCmdUI* pCmdUI) 

{ 

pCmdUI->SetCheck(m_FilterFTP) ; 

} 



/ 



*************************************************************************** 



* Remote: "Show DICOM only" message handler 
* 

****************************************************** 
void FileBrowser: : OnRemotehostShowDICOMonly () 

{ 

if ( ! m_FilterFTP) return; 
m_DCMonly_FTP =! m_DCMonly_FTP ; 
OnFtpRef resh ( ) ; 
Beep(400, 50) ; 
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l^^^ ho s t ShowD I COMon 1 y ( CCmdU I * pCmdU 



} 

void FileBrowser : :OnUpdateRd 

{ 

pCmdUI->Enable (m_FilterFTP) ; 

pCmdUI->SetCheck. (m_DCMonly_FTP && m FilterFTP) 

} 



* 

* Rename selected file/directory on the current computer 

* (local or FTP) 
* 

**************************************************** 

bool FileBrowser : :RenameFile_or_Directory (CListCtrl &myList, bool is_local) 

{ 

POSITION pos = myList .GetFirstSelectedltemPosition ( ) ; 

if (pos == NULL) 

{ 

Af xMessageBox ( "No item selected" , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

) 

int n = myList . GetNextSelectedl tern (pos) ; 
int nstatus=Get I temlmageState (n, myList ) ; 

bool isf ile= (nstatus == FILE || nstatus == DFILE || nstatus == DFILE_VU) ; 
if(!is_local && lisfile) 

fl% AfxMessageBox ( "Cannot rename remote director ies MB_ICONEXCLAMATION | MB_OK) ; 

return false; 

^" j BOOL done ; 

J% CString name =CString (myList . Get ItemText (n, 3 )) ; 

1^1 Rename_Fi le_Dir_Dialog rfdd(name); 

2^ if (rf dd.DoModal ( ) ==IDCANCEL) return false; 

fli if ( i s_local ) 

. { 

i^. if (isf ile) done=MoveFi le (m_Directory+ " / " +name , m_Directory+ " / " +rf dd . getName ( ) ) 

else done=MoveFi le (m Directory+name , m Directory+rf dd . getName ( ) ) ; 

CS } 

nl else 

^ { 

^; if (! reset FTP 0 ) return false; 

l=J if { isf ile) done=m_pFTPConnection- >Rename (m_Directory_FTP+ " / " +name , 

m_Directory FTP+ " / " +r f dd . m_NewName ) ; 

} 

if (done==FALSE) 
{ 

AfxMessageBox ( "Cannot rename " +name , MB_ICONEXCLAMATION | MB__OK) ; 
return false; 

} 

else 

{ 

if(is_local) OnLocRef resh ( ) ; 
else OnFtpRef resh ( ) ; 

) 

return true; 



* 

* Create a new directory (local or ftp) 
* 

************************************************************ 

bool FileBrowser :: CreateNewDirectory (CListCtrl &myList, bool is local) 

{ 

CreateDirectoryDialog cdd; 



14 



FileBrowser . cpp 



10/27/00 



if {cdd.DoModal { ) == IDCANQ^^ return false; 
CString name-cdd . getName 
i f ( name . I sEmpty ( ) ) 



AfxMessageBox ( "Cannot create: empty name '\ MB_ICONEXCLAMAT ION | MB_OK) ; 
return false; 

} 

if { FindName (name , myList)>-l) 
{ 

AfxMessageBox ( "Cannot create: already exi st s " , MB_ICONEXCLAMATION | MB_OK) 
return false; 

} 

BOOL done; 

if(is_local) done=CreateDirectory (m_Directory+name , NULL); 

else 

{ 

if (! reset FTP 0 ) return false; 

done=m_pFTPConnect ion- >CreateDirectory (m_Directory_FTP+name ) ; 

} 

if (done==FALSE) 
{ 

AfxMessageBox ( "Cannot create +name , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

else 

{ 

if(is_local) OnLocRef resh ( ) ; 
else OnFtpRef resh ( ) ; 

} 

return true; 

v^5,d FileBrowser: : OnLocalhostCreateNewDirectory ( ) 

■^J CreateNewDirectory (m_Li st , true); 
'€!■ Beep (500, 5 0) ; 

vSid FileBrowser: : OnRemotehostCreateNewDirectory ( ) 

||J CreateNewDirectory (m_List_FTP , false); 
Beep (400, 50) ; 

):.. 



* 

* Open selected file/directory from the current computer 

* (local or FTP) 
* 

void FileBrowser: : OnLocalhostOpen { ) 
{ 

POSITION pos = m_List -GetFirstSelectedl temPosition ( ) ; 
if (pos == NULL) return; // nothing selected 

int item = m_List . GetNextSelectedltem (pos) ; //single selection 
OpenFi le_or_Directory ( true , item) ; 

} 

void FileBrowser :: OnUpdateLocalhostOpen (CCmdUI * pCmdUI) 

{ 

pCmdUI ->Enable (m_List .GetFirstSelectedl temPosition ( ) ! =NULL) ; 

) 
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void FileBrowser :: OnRemotehc^^»en ( ) 

w 

POSITION pos = m_List_FTP^etFirstSelectedI temPosition ( ) ; 
if {pos == NULL) return; // nothing selected 



int item = m_List_FTP . GetNextSelectedl tern (pos) ; //single selection 
OpenFile_or_Directory ( false , item) ; 

} 

void FileBrowser : lOnUpdateRemotehostOpen (CCmdUI* pCmdUI ) 

{ 

pCmdUI->Enable (m_List_FTP . GetFirstSelectedltemPosition ( ) ! =NULL) ; 

} 

void FileBrowser :: OpenFile_or_Directory (bool local, int item) 

{ 

if (item<0) return; // something is wrong 

CListCtrl* myList; 

if (local) myList=&m_List ; 

else myList=&m_List_FTP; 

// Update file browser 

m_RequestedFile=CString ( " / " ) +CS tr ing (myList ->Get I temText (item, 3 ) ) ; 
switch (Get ItemlmageState ( item, (*myList) ) ) 

{ 

case FILE: 
case DFILE_VU: 
case DFILE: 

SetItemImageState(item,DFILE_VU, (*myList) ) ; 

if (local) 

{ 

m_RequestedFile = CString (m_Di rectory) -t-m_RequestedFi le ; 
OpenedFilesListAdd (m_RequestedFile) ; 

^? } 

01 else 

^ { 

CString tm=CString (m_Directory_FTP) +m_RequestedFi le ; 
"H OpenedFilesListAdd ( tm) ; 

ii] m_RequestedFile=m_TempFile+CString (myList- >GetItemText ( item, 3)) ; 

if ( ! FileTransf er ( tm, m_RequestedFi le , true, -1)) return; // cannot download 

nj CDialog: :OnOK( ) ; 

a break; // unchecked file 

Li, case DIR: 

L,^^ if (local) FindFiles ( ( *myList) , false, CString ( CString (m_Directory) +CString (myLi st - >Get I tern 

T^ct (item, 3) ) ) ) ; 

flj else FindFiles( (*myList) , true, CString ( CString (m_Directory_FTP) +CString (myLi st - >Ge t I t 

eqip'ext (item, 3 ) ) ) ) ; 

return; // switch to subdirectory 
y case ROOT: 

p if (local) FindFiles ( (*myList) , false, m_ParentDirectory) ; 

else FindFiles (( *myList) , true, m_ParentDirectory_FTP) ; 

return; // switch to parent directory 
default: return; // do nothing 

} 

myList - >Update ( i tern) ; 

} 

* 

* Delete selected file/directory from the current computer 

* (local or FTP) 
* 

bool FileBrowser :: DeleteFile_or_Directory (CListCtrl &myList, bool is_local) 

{ 

POSITION pos = myList . GetFirstSelectedl temPosit ion () ; 

if (pos == NULL) 

{ 

Af xMessageBox ( "No item selected" , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

int n = myList . GetNextSelectedl tern (pos) ; 
int nstatus=Get I temlmageState (n, myList) ; 

bool isf ile= (nstatus == FILE || nstatus == DFILE || nstatus == DFILE_VU) ; 
BOOL done; 
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CString name =CString(m; 
if( Af xMessageBox ( "Do y< 
MB_ICONEXCLAMATION | 
if ( is local ) 



.GetltemText (n, 3) ) ; 

ally want to delete "+name+" ?' 

YESNO) IDNO ) return false; 



if (isfile) done = DeleteFile {m_Directory+"/ " +name) ; 

else done=RemoveDirectory (m_Directory+name) ; 

Ise 

if ( ! resetPTP ( ) ) return false; 

if ( isfile) done=m_pFTPConnect ion- >Remove (m_Directory_FTP+ " / " +name) ; 

else done =m_pFTPConnect ion- >RemoveDirectory (m_Directory_FTP+name ) 

f (done==FALSE) 

Af XMessageBox ( "Cannot delete " +name , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

Ise 

if ( is_local ) 
else 

return true; 



OnLocRef resh { ) ; 
OnFtpRef resh { ) ; 



void FileBrowser: : OnLocalhostRename ( ) 

{ 

=5. RenameFile_or_Directory (m_List , true) ; 
Beep(500, 50) ; 

m 

\roHid FileBrowser: : OnRemotehostRename { ) 

~; RenameFile_or_Directory (m_List_FTP, false) ; 
^1 Beep(400,50) ; 



************************************************************************ 



Local: "Delete" message handler 

************************************************* 
v^ld FileBrowser: : OnLocalhostDelete { ) 

^: DeleteFile_or_Directory (m_List , true) ; 
U Beep(500, 50) ; 



/ 



* ****************************************************** 



* Remote: "Delete" message handler 
* 

void FileBrowser: rOnRemotehostDelete { ) 

{ 

DeleteFile_or_Directory (m_List_FTP, false) ; 
Beep(400,50) ; 

} 



* Support for OnUpdate messages in the menu 
* 

***************************************************** 

LRESULT FileBrowser : :OnKickIdle (WPARAM, LPARAM) 

{ 

CMenu* pMainMenu = GetMenu(),- 
if ( ! pMainMenu) return FALSE; 
CCmdUI cmdUI; 
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for (UINT n = 0; n < pMainM^^^ >GetMenuI temCount { ) ; ++n) 

W 

CMenu* pSubMenu = pMainMenuT>Get SubMenu (n) ; 
i f ( ! pSubMenu) continue; 

cmdUI . m_nIndexMax - pSubMenu- >GetMenuI temCount () ; 
for (UINT i = 0; i < cmdUI . m_nIndexMax ; ++i ) 

{ 

cmdUI . m_nlndex = i; 

cmdUI.m_nID = pSubMenu- >GetMenuI temID ( i) ; 
cmdUI . m_pMenu = pSubMenu; 
cmdUI .DoUpdate (this, FALSE) ; 



return TRUE; 

} 



* Dynamic popup, context-sensitive menu 

* for brower list items 
* 

void FileBrowser : lOnRclickList (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

// Grab necessary parameters 
f==. CListCtrl* myList; 

bool local= (pNMHDR->idFrom==IDC_LIST) ; 
Jj if (local) myList=&m_List ; else myLi st =&m_List_FTP ; 
gi // Click positioning 
.1^ CPoint p (GetMessagePos ( ) ) ; 
r'^ myList->ScreenToClient (&p) ; 

'"H int item=myList->HitTest (CPoint (2,p.y) ) ; if(item<0) return; // something is wrong 

.j=z II Create popup menu 

CMenu menu; 
lU menu . CreatePopupMenu ( ) ; 

CMenu menul; 

menul . LoadMenu ( IDR_MENU_FILE_BROWSE) ; 
CMenu* pop=menul . GetSubMenu ( local? 1 : 2 ) ; 



// Set acceptable menu IDs 

UINT ids[5]={ ID_LOCALHOST_0PEN, 

id_localhost_copytoremotehost , 
id_localhost_delete, 
id_localhost_rename , 
id_localhost_createnewdirectory} ; 

if ( ! local) 

{ ids [0] =ID_REM0TEH0ST_0PEN; 

ids [1] =ID_REMOTEHOST_COPYTOREMOTEHOST; 

ids [2] =ID_REM0TEH0ST_DELETE; 

ids [3] =ID_REM0TEH0ST_RENAME; 

ids [4] =ID REM0TEH0ST_CREATENEWDIRECT0RY; 



// Create the popup menu 
int n=0; 

unsigned int nid; 
CString strMenu; 

for(unsigned int i=0; i<pop- >GetMenuI temCount () ; i++) 

{ 

nid=pop- >GetMenuI temID ( i ) ; 

if( nid!=ids[0] && nid!=ids[l] && nid!=ids[2] 
&& nid!=ids[3] && nid!=ids[4]) continue; 
pop->GetMenuString ( i , strMenu, MF_BYPOSITION) ; 
int status=pop->GetMenuState(i, MF_BYPOSITION) ; 
menu . InsertMenu (n, status , nid, strMenu) ; 
n + + ; 

} 
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// Display popup menu 
ClientToScreen(&p) ; 
p=CPoint (p.x+ (local? 25 :440) , p.y+25) ; 
menu . TrackPopupMenu (TPM_LEFTALIGN, p . x , p , y , this) ; 
pop- >DestroyMenu ( ) ; 
menu . DestroyMenu ( ) ; 
menul . DestroyMenu ( ) ; 
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#if ! defined (AFX_FINDREGION _^^23 07E526_1F4B_1 1D3_96A4_00105A21T^^_INCLUDED_) 
#def ine AFX_FINDREGION_H 2^^B26_lF4B_llD3_96A4_0010 5A21774F_^HtUDED_ 

#if _MSC_VER > 1000 
tfpragma once 

#endif // _MSC_VER > 1000 

# define CANNOT_COMPARE -1313 

# include " Image/ Image . h" 

// FindRegion. h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// FindRegion dialog 

class FindRegion : public CDialog 

{ 

// Construction 
public : 

bool Initialize (CDC *pDC, Image *pBmp, CRect &ScreenPat ternRect , CSizefic scroll) 
FindRegion (CWnd* pParent = NULL); // standard constructor 
-FindRegion { ) ; 

// Dialog Data 

//{ {afx_DATA( FindRegion) 

enum { IDD = IDD_DIALOG_FIND_SIMILAR }; 
int f _Percent ; 

BOOL f _ReduceNoise ; 

CProgressCtrl f_Progress; 
y CSliderCtrl f_Speed; 
//}}AFX_DATA 

vr "a 

/"/^ Overrides 

'"H // ClassWizard generated virtual function overrides 
-n //{ {AFX_VIRTUAL( FindRegion) 
.^I public: 

virtual int DoModalO; 
ly protected: 

s virtual void DoDataExchange { CDataExchange* pDX) ; // DDX/DDV support 

'yi, // } }AFX_VIRTUAL 

/|tJ Implementation 
pH^tected : 

_^ // Generated message map functions 

U //( (aFX_MSG( FindRegion) 

Cj afx_msg void OnBut tonFindBest ( ) ; 

afx_msg void OnPaintO; 

afx_msg void OnBut tonFindNext () ; 

virtual BOOL Onini tDialog { ) ; 

// } }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 
private : 



long 


f Pattern_Average ; 


long* * 


f _Pattern; 


double 


f Correlation; 


CPoint 


f ImageStartSearchPoint ; 


CSize 


f _scrol 1 ; 


CRect 


f _ImageFoundRect , f _ScreenFoundRect ; 


CRect 


f _ImagePat ternRect , f _ScreenPat ternRect ; 


CRect 


f_FoundDi splay , f_Pat ternDi splay ; 


Image* 


f pBmp ; 


CDC* 


f_CDC; 


void 


Draw(UINT code) ; 


void 


Erase (UINT code) ; 


void 


DisplayPatterns ( ) ; 


bool 


AllocatePattern ( ) ; 


bool 


DeallocatePattern ( ) ; 


bool 


Find (UINT mode) ; 



}; 
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Li^^^rert additional declarations imm^^^[:€ 



// { {afx_insert_location} } 

// Microsoft Visual C++ wili^^Kert additional declarations imm^^Hbely before the previous line. 



#endif // ! def ined ( AFX_FINDREGION_H 23 07E5 26_1F4B_1 1D3_96A4_001 05A21 774 F INCLUDED_) 
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// FindRegion . cpp : implemerj^^^on file 
// 

^include "stdafx.h" 
**include "DCM.h" 
#include " FindRegion . h" 

Jtdefine PATTERN_RECT 0 
^define FOUND_RECT 1 
#define FIND_BEST_REGION 0 
^define FIND_NEXT_REGION 1 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// FindRegion dialog 



FindRegion :: FindRegion (CWnd* pParent /*=NULL*/) 
: CDialog (FindRegion :: IDD, pParent) 

{ 

// Some very basic initialization 

int n=theApp . app_Re so lut ionScale Factor ; 

f_PatternDisplay=CRect ( CPoint ( 175 , 40) , CSize ( 100*n , 100 *n) ); 
f _FoundDisplay = f_Pat ternDi splay+CPoint ( 0 , f_PatternDi splay . hot tom+1 0*n) ; 
_ f_Pattern=NULL; 

f _Pat tern_Average= 0 ; 

ill 

ffz //( {AFX_DATA_INIT{ FindRegion) 
f_Percent - 50; 
f_ReduceNoise = TRUE; 

'''-4 II } }afx_data_init 

F^^dRegion : : -FindRegion ( ) { } 

void FindRegion :: DoDataExchange ( CDataExchange* pDX) 

^7 CDialog: : DoDataExchange (pDX) ; 
Q //{ (AFX_DATA_MAP (FindRegion) 

Bj DDX_Text (pDX, IDC_D I ALOGF IND_PERCENT , f_Percent); 
•/"= DDV_MinMaxInt (pDX, f _Percent , 0, 100); 

DDX_Control (pDX, IDC_DIALOGFIND_PROGRESS , f_Progress) ; 
y DDX_Control(pDX, IDC_DIALOGFIND_SLIDER , f_Speed) ; 
p DDX_Check(pDX, IDC_DIALOGFIND_DENOI SE , f_ReduceNoise) ; 

// } }AFX_DATA_MAP 



BEGIN_MESSAGE__MAP (FindRegion, CDialog) 
/ / { { AFX_MSG_MAP ( F i ndReg i on ) 

ON_BN_CLICKED ( ID_D I ALOGF IND_F IND , OnButtonFindBest ) 
ON_WM_PAINT() 

ON_BN_CLICKED ( ID_D I ALOGF IND_NEXT , OnBut tonFindNext ) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// FindRegion message handlers 

* 

* Initialize find parameters 
* 

**************************************************** 

bool FindRegion :: Initialize (CDC *pDC, Image *pBmp, CRect &ScreenPat ternRect , CSize£c scroll) 

{ 

f_pBmp=pBmp; if(!f_pBmp) return false; 

f_CDC=pDC; if(!f_CDC) return false; 

f _scroll = scroH ; 

f ScreenPat ternRect =f ScreenFoundRect=ScreenPat ternRect ; 
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aE^^H[ een__to_Image ( f _ScreenFoundRect , ^^B^c 



f _ Image Pat ternRect = f_Ima 

= f _pBmp- >m_ScreenMaE^^B een__to_Image ( f _ScreenFoundRect , ^^■bcrol 1 ) ; 



// Force selected region inside the image, if necessary 

bool inside-true; 

if (f _ImagePatternRect . lef t<0) 

f _ImagePat ternRect . lef t=0 ; inside=f al se ; 
if ( f_Image Pat ternRect . top<0) 

f_ImagePat ternRect , top=0 ; inside=f al se ; 
if (f _ImagePatternRect . right >=f_pBmp- >GetWidth ( ) ) 

f _ImagePatternRect . right=f_pBmp- >GetWidth ( ) -1; inside=f al se ; 

if { f_Image Pat ternRect . bot tom>=f_pBmp- >Get Height ( ) ) 

f _ImagePatternRect . bot tom=f _pBmp- >GetHeight ( ) -1 ; inside=f al se ; 
if ( ! inside ) 

f_I mage Pat ternRect . Normal izeRect ( ) ; 

if ( f_ImagePatternRect . IsRectEmpty ( ) ) return FALSE; 

f_ImageFoundRect=f_Image Pat ternRect ; 
f_ScreenPat ternRect =f_ScreenFoundRect= 

f _pBmp- >m_ScreenMap . Image_to_Screen ( f _ImageFoundRect , f _scroll ) ; 

} 

^3. return true; 

/■tilt- ************************************************** 
*~^~_ Find best match 

Jr ***************************************************** 

h^'bl FindRegion :: Find (UINT mode) 

Z\ i n t X , y , dx , dy ; 

\U double temp_corr; 

= CPoint best_f it (0, 0) ; 

int rw=f_ImagePat ternRect , Width () ; 

int rh=f _ImagePatternRect , Height {) ; 

if (f _pBmp->GetWidth { ) -rw<rw || f _pBmp- >GetHeight ( ) -rh<rh) 

AfxMessageBox (" Search pattern is too large\n" 
_^ ''Please cancel search and select smaller pattern", 

y MB_0K|MB_IC0NEXCLAMATI0N) ; 

ri return false; 

' } 

// Set coordinate increment s 

int accur=f _Speed . Get Pos ( ) ; 

if (accur==f _Speed . GetRangeMax ( ) ) 

{ 

dx=dy=l; // highest accuracy 

} 

else 

{ 

dx= max ( 1 , rw>>accur ) ; dy= max ( 1 , rh>>accur ) ; 

} 



// Perform fit search 

bool f ound_something=f al se ; 

f or (x=f _ImageStartSearchPoint . X; x< f _pBmp- >Ge tWidth ( ) -rw; x += dx) 

{ 

if(x%10==0) f_Progress . Set Pos ( 100*x/ ( f _pBmp- >GetWidth ( ) -rw) ) ; 
if (abs (x-f_Image Pat ternRect . lef t ) <rw) continue ; 

f or (y=f_ImageStartSearchPoint .y ; y< f _pBmp- >GetHeight ( ) -rh; y += dy) 

{ 

if (abs (y-f_Image Pat ternRect . top) <rh) continue ; 

temp_corr=f_pBmp- >Compare (C0MPARE_C0RRELATI0N, CPoint (x,y) , f_Pattern, 

rw, rh, f _Pat tern_Average) ; 
if ( temp_corr==CANNOT_COMPARE) continue ; 
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temp_corr = ( 1 . Q^^fcrip_corr ) /2 ; // map into [0,1] 
if ( temp_corr>f _(^^Hblat ion) // best current 

{ 

f ound_something= true ; 
f _Correlat ion= temp_corr ; 
best_f it=CPoint (x, y) ; 
if (mode==FIND_NEXT_REGION) 
{ 

f _ImageStartSearchPoint=CPoint (x,y+l) ; 
goto found ; 

} 

temp_corr=f_pBmp- >Compare (COMPARE_CORRELATION, CPoint(x,y) , f_Pattern, 

rw, rh, f _Pattern_Average) ; 

} 

if ( f _ Images tart Sear chPoint •y>0) f _ImageS tart Sear chPoint . y=0 ; 
} // next y 

if (f_ImageS tart Sear chPoint . x>0) f_ImageS tart Sear chPoint . x=0 ; 
} // next X 

if (mode==FIND_NEXT_REGION) 
{ 

AfxMessageBox (" Finished searching the image\n" 

"Next search will start from the beginning.", 

MB_ I CON IN FORMAT I ON) ; 
f _ImageS tart Sear chPoint -CPo in t (0,0) ; 
return false; 

} 

if ( ! f ound_something) 

{ 

Af xMessageBox ( "Not found"); 
return false; 

m 

foiind : 

f _Progress . Set Pos ( 0 ) ; 
S.\ if (best_f it . x= = CANNOT_COMPARE best_f i t , y= = 0 ) return false; 
j{ Beep(500, 100) ; 

11 Display the result 

nj if (f_ImageFoundRect . EqualRect (f_ImagePatternRect ) ==FALSE) Erase ( FOUND_RECT) ; // remove prev 
ipus 

r . f _ImageFoundRect = CRect (best_f it , f _ImagePat ternRect . Size ( ) ) ; 

f _ScreenFoundRect =f_pBmp- >m_ScreenMap . Image_to_Screen ( f _ImageFoundRect , f_scroll) ; 
O Draw(FOUND_RECT) ; 
fi\ return true ; 

/*^**************************************************************** 

*P1 

*Pj Find Button click 

*********************************************************************** 
void FindRegion: : OnButtonFindBest () 

{ 

f_ImageStartSearchPoint=CPoint (0,0) ; 
f _Correlation=0 . 0 ; 

if ( !Find(FIND_BEST_REGION) ) return; 
DisplayPatterns ( ) ; 

f_ImageStartSearchPoint=CPoint (0,0) ; 

} 

void FindRegion: : OnButtonFindNext () 
{ 

UpdateData(TRUE) ; 

f_Correlation=f _Percent/100 . 0 ; 

if ( ! Find(FIND_NEXT_REGION) ) return; 

Di splayPatterns ( ) ; 

//f _ImageStartSearchPoint=f _ImageFoundRect . TopLef t ( ) +CSize (1,1) ; 

} 
* 

* Display modal dialog, and erase all rectangles after 
* 

******************************************************* 
int FindRegion :: DoModal 0 
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// CustomFileDialog . cpp : in^^^entat ion file 
// 



^include "stdafx.h" 

tJinclude "CustomPi leDialog . h" 

ttinclude <dlgs.h> 



^^ifdef _DEBUG 
#define new DEBUG_NEW 
^Jundef THIS_FILE 

static char THIS_FILE[1 = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CCustomFileDialog 

IMPLEMENT_DYNAMIC (ecus tomFi leDialog, CFi leDialog) 

BEGIN_MESSAGE_MAP (CCustomFileDialog, CFi leDialog) 

/ / ( { AFX_MSG_MAP ( CCus t omF ileDialog) 

ON_BN_CLICKED ( IDC_SELECT_I TEMS , OnSelectBut ton) 

ON_WM_CONTEXTMENU ( ) 

// } )AFX_MSG_MAP 

ON_COMMAND(ID_HELP, OnHelp) 
END_MESSAGE_MAP ( ) 

// Filter string 
CString CCustomFileDialog 
CString CCustomFileDialog 
Cffiring CCustomFileDialog 
CSJgring CCustomFileDialog 

CcMittomFileDialog : :CCustomFileDialog (BOOL bOpenFi leDialog , DWORD dwFlags, 
Jj LPCTSTR IpszFilter, // = szCustomDef Filter 

\\ LPCTSTR IpszDefExt, // = szCustomDef Ext 

~l LPCTSTR IpszFileName , // = szCustomDef Fi leName 

CWnd* pParentWnd) : // = NULL 
dJ CFileDialog (bOpenFileDialog, IpszDefExt, IpszFi leName , dwFlags, IpszFilter, pParentWnd) 

\ .'Si 

m_bMulti = FALSE; 
m_SelectSubdirectories = TRUE; 

r1 // Most of the "customization" of CCustomFileDialog is set by the dwFlags 
ps'; // passed in to the constructor. Attempts to enable these features after 
f'^ // constructing the CCustomFileDialog, such as accessing the m_ofn structure 
'"4 // directly, may cause CCustomFileDialog to not work correctly 

pl m_szBigBuf f er [0] = ' \0 ' ; 

m_of n . IpstrFile = m_szBigBuf f er ; 

if (dwFlags & OFN_ALLOWMULTISELECT) 
{ 

m_bMulti = TRUE; 

// MFC only provides a 260 character buffer for IpstrFile 

// This is not sufficient when you may be expecting a large number of files. 
m_of n. nMaxFile = sizeof (m_szBigBuf f er ) ; 
if (IpszFileName != NULL) 

Istrcpyn (m_szBigBuf f er , IpszFileName, sizeof (m_szBigBuffer )) ; 

} 

else m_ofn . nMaxFile = _MAX_PATH; 

if (dwFlags & OFN_EXPLORER) 
{ 

if (dwFlags & OFN_ENABLETEMPLATE) 
{ 

// give it a custom title, too. 
SetTitle ( "Select File or Directory"); 

} 

} 

else 

if (m_ofn. Flags & OFN_EXPLORER) 
{ 

// MFC added it, but we don't want it 

m_ofn. Flags &= ~ (OFN_EXPLORER | OFN_SHOWHELP) ; 



szCustomDef Filter (_T ( "All Files ( * . *) | * . * | Directories | . | | " ) ) ; 
szCustomDef Ext (_T ( "dcm" ) ) ; 

szCustomDef FileName (_T ( "This is the initial default file name")); 
szCustomTitle (_T (" Select File or Directory")); 
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// FILEOPENORD & MULTI FILEOPENORD can be found from the Infoviewer 

// at Samples -> MFC Samples -> General MFC Samples -> CLIPART -> COMMDLG.RC 

// These are the customized versions 

if (m_bMulti) 

SetTemplate (CUSTOM_MULTIFILEOPENORD, IDD_CUSTOM_FILE_DIALOG) ; 

else 

SetTemplate {CUST0M_FILEOPEN0RD, IDD_CUSTOM_FILE_DIALOG) ; 



} 

void CCustomFileDialog : : SetTitle (CString title) 

{ 

CCustomFileDialog :: szCustomTitle = title; 

m_of n. IpstrTitle = CCustomFi leDialog : : szCustomTi t le ; 

} 

void CCustomFileDialog : :DoDataExchange (CDataExchange* pDX) 

{ 

CFileDialog: : DoDataExchange (pDX ) ; 
// { {AFX_DATA_MAP (CCustomFileDialog) 

DDX_Check {pDX, IDC_CHECK, m_Se lect Subdirectories ) ; 
// } }AFX_DATA_MAP 

} 

BOOL CCustomFileDialog: : ReadLi stViewNames ( ) 

CS // Okay, this is the big hack of the sample, I admit it. 
,f=l II With some creative use of the Spy++ utility, you will 

// find that the listview is not actually ID = Istl as 
^' // documented in some references, but is actually a child 
%lj // of dig item ID = lst2 

II WARNING! Although this is a non- intrusive customization, 
'^f II it does rely on unpublished (but easily obtainable) 
-J3 // information. The Windows common file dialog box implementation 
rlj // may be subject to change in future versions of the 

// operating systems, and may even be modified by updates of 
7 // future Microsoft applications. This code could break in such 
l=- // a case. It is intended to be a demonstration of one way of 
^] // extending the standard functionality of the common dialog boxes. 



%= CWnd* pWnd = GetParent () - >GetDlgI tern (lst2) ; 
p if (pWnd NULL) return FALSE; 

CListCtrl* wndLstl = (CLi stCtr 1 * ) (pWnd- >GetDlgI tem ( 1) ) ; 

UINT nSelected = wndLst 1 - >GetSelectedCount ( ) ; 

if (InSelected) return FALSE; // nothing selected 

CString strDirectory = Get FolderPath ( ) ; 
if (strDirectory .Right (1) != _T("\\")) 
{ 

StrDirectory += _T("\\"); 

} 

CString strltemText; 

// Could this iteration code be cleaner? 

for (int nitem = wndLst 1 - >GetNext I tem ( - 1 , LVNI_SELECTED) ; 

nSelected-- > 0; nItem = wndLst 1 - >GetNext I tem (nl tem, LVNI_SELECTED) ) 

( 

StrltemText = strDirectory + wndLst 1 - >Get ItemText (nl tem, 0 ) ; 
m_listDisplayName3 . AddHead ( strltemText) ; 

} 

return TRUE; 

} 

BOOL CCustomFileDialog: : OnFileNameOK ( ) 
{ 

ReadListViewNames ( ) ; 

// CFileDialog ' s m_of n . Ipstr Fi le will contain last set of selections! 
return FALSE; 
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void CCustomFileDialog : lOnSe^ctBut ton ( ) 

{ 

ReadListViewNames ( ) ; 

( (CDialog*) GetParent ( ) ) - >EndDialog ( IDOK) ; 

} 

void CCustomFileDialog : :OnContextMenu (CWnd* pWnd, CPoint point) 

{ 

const DWORD helpIDs{] = 
{ 

//IDC_SELECT_ITEMS, IDC_SELECT_ITEMS + 0x50000, 

0, 0 

); 

: : WinHelp (pWnd->m_hWnd, AfxGetAppO - >m_pszHelpFilePath , 
HELP_CONTEXTMENU, (DWORD) ( LPVOID ) helpIDs ) ; 

} 

void CCustomFileDialog : :OnHelp 0 

{ 

// TODO : How do I bring up the main topic as a contextpopup? 
AfxGetAppO ->WinHelp(l, HELP_CONTEXTPOPUP) ; 

} 

BOOL CCustomFileDialog: :OnInitDialog ( ) 

{ 

CFileDialog: lOnlnitDialog ( ) ; 

// Clear all old selections 
Jj m_listDisplayNames . RemoveAll ( ) ; 

0^ 

// Let's change some button text 

'"^^ If Here's one of the big differences from pre MFC 4.0 

^-J // customizations . All of the controls on the Explorer 

II dialog are now on a dialog which is the PARENT of 

"^I // the CFileDialog. That's right; you'll need to do a 

// GetParentO first, before using GetDlgl tern ( ) . 

II Overall, this removes the edit control and its static 
r. // text and then moves the filetypes combo and static 
\1 II text up into the same spot . 
Q CRect rcWndEdit, rcWndStat ic ; 

^ = 

\i\ CWnd* pWnd = Get Parent ()- >GetDlgItem (edtl ) ; 

pWnd->GetWindowRect (&rcWndEdit ) ; 
ri GetParent ( ) - >ScreenToClient ( &rcWndEdi t ) ; 

pWnd = GetParent ()- >GetDlgItem ( stc3 ) ; 

pWnd- >GetWindowRect ( &rcWndStat ic ) ; 

GetParentO ->ScreenToClient ( &rcWndStat ic) ; 

// More undocumented but non-implementation functions 

// Work only when supplying a customized template 

HideControl (edtl ) ; // Hide edit control 

HideControl ( stc3 ) ; // Hide edit control's text 




pWnd = GetParent ()- >GetDlgI tem (cmbl) ; 

pWnd->SetWindowPos (NULL, rcWndEdi t . lef t , rcWndEdit . top , 0, 0, 

SWP_NOSIZE I SWP_NOZORDER | SWP_NOACT I VATE ) ; 
pWnd = GetParent 0- >GetDlgI tem ( stc2) ; 

pWnd->SetWindowPos (NULL, rcWndStat ic . lef t , rcWndStat ic . top , 0, 0, 
SWP_NOSIZE I SWP_NOZORDER | SWP_NOACT I VATE ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 
* 

* Return selection # index 
* 

CString CCustomFileDialog : :GetSelectedAt (UINT index) 
{ 

CString res { " " ) ; 
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if (index>= (UINT) m_l istDi^ 
POSITION pos = m_listDi 
if(!pos) return res; 
res = (CString) m_listDi9playNames .GetAt (pos) 
return res; 



i^^ayNames.GetCount 0 ) return res;^^^ 

J^^B-Names . Findlndex ( index) ; 
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#if ! def ined(AFX_COLORDIALO(^^kl3C3 0C6 5_8 2 87_llD2_9 596_0 0000000^^ INCLUDED_) 

#def ine AFX COLORDIALOG_H_I^HiC6 5_82 87_llD2_95 96_000000 000000j^HcLUDED_ 



#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

// ColorDialog . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// ColorDialog dialog 

class ColorDialog : public CDialog 

{ 

// Construction 
publ ic : 

ColorDialog (CWnd* pParent = NULL); // standard constructor 



// Dialog Data 

// { {AFX_DATA (ColorDialog) 

enum { IDD = IDD_DI ALOG_COLOR } ; 

CSliderCtrl m_Contrast; 

CSliderCtrl m_Gamma ; 

CSliderCtrl m_Brightness ; 

i n t m_br_va 1 ue ; 

double m_gamma_value ; 

i n t m_c on_va 1 ue ; 

// } }AFX_DATA 

/^] Overrides 

j^i // ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (ColorDialog) 
protected: 

%J virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

II } }afx_virtual 

t'i^ Implementation 
ffrptected : 

r. // Generated message map functions 

^- //( {AFX_MSG (ColorDialog) 

Cj virtual BOOL Onini tDialog { ) ; 

X\\ afx_msg void OnHScroll (UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) ; 

L't //}}afx_msg 

2^ DECLARE_MESSAGE_MAP ( ) 
^ivate : 

PI CWnd* m pView; 

I / { (afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line. 



#endif // ! defined (AFX_COLORDIALOG_H 13C3 0C6 5_828 7_11D2_95 9 6_00 00 0 00 0 00 00 INCLUDED_) 
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// ColorDialog . cpp : implem( 
// 

^include "stdafx.h" 
^include "DCM.h" 
^tinclude "ColorDialog . h" 



^^ifdef _DEBUG 
*Jdefine new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE_ 

#endif 
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///////////////////////////////////////////////////////////////////////////// 
// ColorDialog dialog 



ColorDialog : :ColorDialog ( CWnd* pParent /*=:NULL*/) 
: CDialog (ColorDialog :: IDD , pParent) 

{ 

// { {AFX_DATA_INIT (ColorDialog) 
m_br_value = 0; 
m_gamma_ value = 100; 
m_con_value = 0; 
// } }AFX_DATA_INIT 
m_pView=pParent ; 

) 



vcgS ColorDialog : :DoDataExchange (CDataExchange* pDX) 

{ S 

^: CDialog: : DoDataExchange (pDX) ; 
^= //{ {AFX_DATA_MAP (ColorDialog) 

J] DDX_Control (pDX, IDC_SLIDER_CONTRAST , m_Contrast) ; 
v| DDX_Control (pDX, IDC_SLIDER_GAMMA, m_Gamma) ; 
2 DDX_Control (pDX, IDC__SLIDER_BRIGHTNESS , m_Br ightne ss ) ; 

DDX_Text (pDX, IDC_SLIDER_BR_NUMBER , m_br_value) ; 
JJ DDV_MinMaxInt (pDX, m_br_value, -100, 100); 
pi DDX_Text (pDX, IDC_SLIDER_GAM_NUMBER , m_gamTna_value ) ; 

DDV_MinMaxDouble (pDX, m_gamma_value , 0, 600); 
^ DDX_Text {pDX, IDC_SLIDER_CT_NUMBER , m_con_value) ; 
H DDV_MinMaxInt (pDX, m_con_value, 0, 101); 
p // } }AFX_DATA_MAP 
~\ if {pDX->m_bSaveAndValidate) 

Vi { 

"•■i m_br_value=m_Brightness . GetPos ( ) ; 

CJ m_gamma_value=m_Gamma ,GetPos ( ) ; 

Zl m_con_value=m_Contrast , GetPos () ; 

} 

else 

{ 

m_Brightness . SetPos (m_br_value) ; 
m_Gamma . SetPos ( ( int ) m_gamTna_value ) ; 
m Contrast . SetPos (m_con_value) ; 




BEGIN_MESSAGE_MAP (ColorDialog, CDialog) 

/ / { { AFX_MSG_MAP ( Co 1 or D i a 1 og ) 

ON_WM_HSCROLL ( ) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// ColorDialog message handlers 

BOOL ColorDialog :: OnlnitDialog ( ) 

{ 

CDialog: : OnlnitDialog () ; 
m_Brightness . SetRange ( -100 , 100, TRUE) ; 
m_Brightness.SetTicFreq(20) ; 
m_Brightness . SetLineSize ( 1 ) ; 
m_Brightness . SetPageSize ( 10) ; 
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m__Brightness . SetPos (m_b2j^^kue) ; 



TRIJE) ; 



m_Gamma. Set Range (0,600, TRUE) 
m_Gamma . SetTicFreq ( 100) ; 
m_Gamma . SetLineSize ( 1 ) ; 
m_Gamma . Set Pages ize ( 10) ; 
m_Gamma . Set Pos ( ( int ) m_gamma_value) ; 
CString value; 

value . Format ( " %3 , If " , m_gamma_value/ 10 0 . 0) ; 

GetDlgl tem( IDC_SLIDER_GAM_NUMBER) - >SetWindowText (value) ; 

m_Contrast . SetRange (0 , 100 , TRUE) ; 
m_Contrast . SetTicFreq (10) ; 
m_Contrast - SetLineSize ( 1) ; 
m_Contrast - Set PageSize ( 10 ) ; 
m_Contrast . Set Pos (m_con_value ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void ColorDialog : lOnHScroll (UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) 
{ 

CString value; 

int nControl = pScrollBar- >GetDlgCtrlID ( ) ; 

CSliderCtrl* pControl = ( CSl iderCtr 1* ) GetDlgltem (nControl ) ; 

switch (nControl) 

case IDC_SLIDER_BRIGHTNESS : 
ijj ASSERT (pControl != NULL); 

m_br_value = pControl - >Get Pos () ; 
^J" value . Format (" %d" , m_br_value) ; 

Ji GetDlgl tem(IDC_SLIDER_BR_NUMBER) - >SetWindowText ( value ) ; 

SJ break; 

'^f case IDC_SLIDER_CONTRAST : 

4} ASSERT (pControl != NULL); 

nJ m_con_value = pControl - >Get Pos () ; 

value , Format (" %d" ,m_con_value) ; 

GetDlgl tem(IDC_SLIDER_CT_NUMBER) - >SetWindowText (value) ; 
break; 



case IDC_SLIDER_GAMMA: 

ASSERT (pControl != NULL); 

m_gamma_value = pControl->GetPos ( ) ; 

value. Format ( " %3 . If " , m_gamma_value/100 . 0) ; 

GetDlgl tem( IDC_SLIDER_GAM_NUMBER) - >Se tWindowTex t (value) 

break; 

default : 

CDialog : lOnHScroll (nSBCode , nPos, pScrollBar); 
break; 

} 

/* For Proof later 
if (m_pView) 

( 

m_pView- > Invalidate ( ) ; 
m_pView- >UpdateWindow ( ) ; 

} 

*/ 

return; 
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^flkhe Compressor class. 

^^Wi II /mil I mil III nil III I II I/I i/mL 



II Compressor . h : interface 
II 

llllllllllllllllllllllllllllTTflllllllllllllllllllllllllllliliillTilll 



iiif ! defined (AFX_COMPRESSOR_H 20 0F3A1 1_CF8 7_1 1D2_96 17_0 0105A21 774 F INCLUDED_) 

#def ine AFX_COMPRESSOR_H 200F3A11_CF87_11D2_9617_00105A21774F INCLUDED_ 

#if _MSC_VER > 1000 
ipragma once 

^fendif // _MSC_VER > 1000 

//#include "MainFrm.h" 

// adding zlib staff 
t^if [defined (_WINDOWS) 
^define _WINDOWS 
#endif 

#if Idefined (ZLIB_DLL) 
#define ZLIB_DLL 
#endif 

#include " Zl ibl 13\\zl ib . h" 
#define BUFLEN 32768 

class Compressor 

{ 

publ ic : 

Compressor ( ) ; 
virtual -Compressor () ; 
r\ static bool Z_Compress ( CStr ing infile, CString outf ile) ; 

static bool Z_unCompress ( CStr ing infile, CString outfile, int max_steps=0 ) ; 

#indif // ! defined (AFX_COMPRESSOR_H 20 0F3A11_CF87_11D2_9617_0 0105A21774F INCLUDED_) 



ry 
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it^^^n of the Compressor class. 

^imiinininiiiiiiiiiiiiiii/iiiitiimL 



1/ Compressor . cpp : implement] 
// 

////////////////////////////777/////////////////////////////////777/// 

IJinclude "stdafx.h" 

^Jinclude "DCM.h" 

It include " Compressor . h" 

tiinclude <io.h> 

**ifdef _DEBUG 
t*undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

**define new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

i/iifiiiifiiiiiiiiiiiiiiii/i/iiii/ii/fi/iiiiiifiii/iiiiiiiiifiifiinn 

Compressor : : Compressor ( ) 

( 
) 



Compressor : : -Compressor ( ) 

{ 



* 

Uncompress GZipped file 

If "max_steps" >0 , uncompresses only first max_steps*BUFLEN bytes 

* '-^ \ 

bool Compressor :: Z_unCompress (CString infile, CString outfile, int max_steps) 

nj long in__size; 

CString message; 
f_ FILE *out; 
r" gzFile in; 

O bool gz_f ormat_error=f alse ; 

II Find compressed file size 

p FILE* t_in; 

f% t_in=f open { inf ile , " rb" ) ; 

if (t_in NULL) 

{ 

message . Format ( "Cannot read from file %s",infile); 

if (max_steps>0) AfxMessageBox (message , MB_ICONEXCLAMATION | MB_OK) 
return false; 



} 



in_size = _f i lelength (_f ileno ( t_in) ) ; // input file size 
f close ( t_in) ; 



// Open files for reading/writing 
in=gzopen { inf ile , "rb") ; 
if (in == NULL) 

message . Format ( "Cannot read from file %s",infile); 

if (max_steps>0) AfxMessageBox (message , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

out = f open (outf ile , "wb"); 
if (out NULL) 

message . Format ( "Cannot write to file %s " , out f i le ) ; 

if (max_steps>0) AfxMessageBox (message , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 
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// Put progress control 
theApp. ShowProgress { 1 , " 



#he main frame status bar 
pressing file with gzip"); 



// Perform decompression 
static char buf [BUFLEN] ; 
long len, tot_len=0, steps=0; 
for (;;) 

if (max_steps==0) theApp , ShowProgress (min ( 100 ,{ 33*tot_len) /in_size )); // assume 3:1 compress 
ion ratio 

len = gzread{in, buf, BUFLEN); 

tot_len += len; 

if (len <= 0) break; // eof 

if ( (long) f write (buf , 1, len, out) != len && ! gz_f ormat_error ) 
{ 

if {max_steps>0) AfxMessageBox (" Possible gz format error MB_ICONEXCLAMAT ION | MB_OK) ; 
g2_f ormat_error=true ; 

} 

steps++; 

if (max_steps>0 && steps>=max_steps ) break; 



// Clean up 

if ( f close (out ) ) 

( 

message . Format ( "Cannot close file %s", outfile); 

if (max_steps>0) AfxMessageBox (message , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

% if (gzclose(in) != Z_OK) 
If { 

//message . Format ( "Cannot close file %s", inf ile) ; 
Ji //if (max_steps>0) AfxMessageBox (message , MB_ICONEXCLAMATION | MB_OK) ; 

r"s //return false; 

return true; 



********************************************************************* 
*^=.^ Compress GZipped file 

* *****************★*****************************************************/ 
b§5l Compressor :: Z_Compress (CString infile, CString outfile) 

long in_size; 
CString message; 
FILE *in; 
gzFile out; 

bool gz_f ormat_error=f alse ; 

// Open files for reading/writing 
in=f open (infile , " rb" ) ; 
if (in == NULL) 
{ 

message . Format ( "Cannot read from file %s", inf ile); 
AfxMessageBox (message, MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

in_size = _f ilelength (_f ileno ( in) ) ; // input file size 
out = gzopen (outfile , "wb"); 
if (out == NULL) 
{ 

message . Format ( "Cannot write to file %s" , outfile) ; 
AfxMessageBox (message, MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

) 

// Put progress control in the main frame status bar 
theApp. ShowProgress ( 1 , "Compressing file with gzip'M ; 
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// Perform compression i 
static char buf [BUFLEN] ; 
long len, tot_len=0; 
for (;;) 





theApp . ShowProgress ( ( 100* tot_len) /in_size) ; 
len= (long) f read (buf , 1, BUFLEN, in) ; 
tot_len += len; 
if (len <= 0) break; // eof 

if (gzwrite (out , buf, len) != len && ! gz_f ormat_error ) 

AfxMessageBox (" Possible gz format error MB_ICONEXCLAMAT ION | MB_OK) 
gz_f ormat_error= true ; 



// Clean up 

theApp . ShowProgress ( 0) ; 
if (gzclose (out) != Z_OK) 
{ 



message . Format ( "Cannot close file %s", outf ile) ; 
AfxMessageBox (message, MB_ICONEXCLAMATION | MB_OK) ; 
return false ; 



if 



( f close ( in) ) 



message . Format ( "Cannot close file %s" , inf ile) ; 
AfxMessageBox {message, MB_ICONEXCLAMATION | MB_OK) ; 
return false; 



return true; 
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^if ! defined (AFX_CREATEDIREa^ft^DIALOG_H EE93B006_DE6F_11D2_963^^105A21774F INCLUDED_) 

#def ine AFX_CREATEDIRECTORYE^B)G_H EE93B006_DE6 F_l 1D2_96 29_Oo]^Hb 1 774 F INCLUDED_ 



nit _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// CreateDirectoryDialog . h : implementation file 
// 

^include "stdafx.h" 
# include "DCM.h" 



//#ifdef _DEBUG 
//^define new DEBUG_NEW 
//#undef THIS_FILE 

//static char THIS_FILE[1 = FILE ; 

//^endit 

///////////////////////////////////////////////////////////////////////////// 
// CreateDirectoryDialog dialog 

class CreateDirectoryDialog : public CDialog 

{ 

// Construction 
public : 

CreateDirectoryDialog (CWnd* pParent = NULL); // standard constructor 
CString getNameO; 

/ElDialog Data 
,fl f I { (AFX_DATA(CreateDirectoryDialog) 

enum { IDD = IDD_DIALOG_CREATE_DIRECTORY }; 

CString m_DirName; 
J J // } }AFX_DATA 

/ ^=?Overrides 

-ij // ClassWizard generated virtual function overrides 
ni // ( {aFX_VIRTUAL (CreateDirectoryDialog) 
protected: 

^ virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

|== // } )AFX_VIRTUAL 

/ Implementat ion 
pWtected : 

ri // Generated message map functions 
//( {AFX_MSG (CreateDirectoryDialog) 

II NOTE: the ClassWizard will add member functions here 

// } }afx_msg 
declare_message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CreateDirectoryDialog dialog 



CreateDirectoryDialog: : CreateDirectoryDialog (CWnd* pParent /*=NULL*/) 
: CDialog (CreateDirectoryDialog :: IDD, pParent) 

{ 

// { (AFX_DATA_INIT (CreateDirectoryDialog) 
m_DirName = _T ( " " ) ; 
// } }AFX_DATA_INIT 



void CreateDirectoryDialog :: DoDataExchange (CDataExchange* pDX) 

I 

CDialog: : DoDataExchange (pDX) ; 

//{ {AFX_DATA_MAP (CreateDirectoryDialog) 

DDX_Text (pDX, IDC_EDIT_DIRECTORY_CREATE , m_DirName) ; 

// } }afx_data_map 

} 
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^irifk-k-kifkic**-k-k**-k'k-k-k'k*-k-kick*ir 1^^^^ ******************************* ^^^^^ ************ 

* Take care of the appropriate file/directory name syntax 
* 

*******************************************************************************/ 
CString CreateDirectoryDialog: :getName() 

{ 

m_DirName . Remove { ' ' ) ; 

m_DirName . Remove ('/'); 

m_DirName , Remove ( ' \\ ' ) ; 

m_DirName = CStr ing ( " / " ) +m_DirName ; 

return m_DirName; 

} 



BEGIN_MESSAGE_MAP (CreateDirectoryDialog, CDialog) 

// { {aFX_MSG_MAP (CreateDirectoryDialog) 

// NOTE: the ClassWizard will add message map macros here 

// } }AFX_MSG_MAP 
END_MESSAGE__MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CreateDirectoryDialog message handlers 

//{ {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#^dif // ! defined ( AFX_CREATEDIRECTORYDIALOG_H EE93B0 06_DE6 F_11D2_96 2 9_0 010 5A2 1774 F INCLUDED^) 
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^if ! defined (AFX_EDGESDIALOa^^03D704B4_834D_llD2_9597_0000000Q^fcp INCLUDED_) 

Sdef ine AFX EDGESDIALOG H d^^^4B4_834D_llD2_959 7_00000000000 0j^BbLUDED_ 



t^if _MSC_VER >= 1000 
^pragma once 

#endif // _MSC_VER 1000 

// EdgesDialog . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// EdgesDialog dialog 

class EdgesDialog : public CDialog 

{ 

// Construction 
publ ic : 

BYTE GetThreshold( ) ; 

EdgesDialog (int threshold= 128 , CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

/ / { { AFX_DATA ( Edge sD i a 1 og ) 

enum { IDD = IDD_DIALOG_EDGES ); 

CSliderCtrl m_Sl iderEdges ; 

BYTE m_Thr_Value; 

//}}AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
Hi //{ {AFX_VIRTUAL (EdgesDialog) 
^4 protected: 

01 virtual void DoDataExchange (CDataExchange* pDX) / // DDX/DDV support 

J% II } }afx_virtual 

/ /"'^Implement at ion 
pigtected : 

J"; // Generated message map functions 

'^^^ //{ {AFX_MSG (EdgesDialog) 

= virtual BOOL Onini tDialog ( ) ; 

L.L afx_msg void OnHScrol 1 (UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) ; 
Ll // } }AFX_MSG 

DECLARE_MESSAGE_MAP( ) 

//J^{afx_insert_location} } 

/^fMicrosoft Developer Studio will insert additional declarations immediately before the previous 
ifife. 

#endif // ! def ined ( AFX_EDGESDIALOG_H 03D704B4_834D_11D2_9597_000000000000 INCLUDED_) 
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// EdgesDialog . cpp : implenn 
// 

#include "stdafx.h" 
^^include "DCM.h" 
#include " EdgesDialog . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[1 = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// EdgesDialog dialog 

EdgesDialog: : EdgesDialog (int threshold /*=128*/, CWnd* pParent /*=NULL*/) 
: CDialog (EdgesDialog :: IDD, pParent) 

{ 

/ / { { AFX_DATA_I N I T ( Edge sD i a 1 og ) 

// } }AFX_DATA_INIT 

m Thr Value= (100*threshold) /256 ; 



void EdgesDialog :: DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
//( (AFX_DATA_MAP (EdgesDialog) 

DDX_Control (pDX, IDC_SLIDER_EDGES , m_S 1 iderEdge s ) ; 
DDX_Text (pDX, IDC_SLIDER_EG_NUMBER , m_Thr_Value) ; 
y1 ///DDV_MinMaxByte (pDX, m_Thr_Value, 0, 100); 

' Jl // } }afx_data_map 

r*= if (pDX->m_bSaveAndValidate) 

^1 m_Thr_Va lue=m_Slider Edge s . Get Pos 0 ; 

== else 

( 

m_SliderEdges . SetPos (m_Thr_Value) ; 



Be4iN_MESSAGE_MAP (EdgesDialog , CDialog) 

f=i //{ {AFX_MSG_MAP (EdgesDialog) 

'Zt ON_WM_HSCROLL 0 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// EdgesDialog message handlers 

BOOL EdgesDialog :: OnlnitDialog ( ) 

{ 

CDialog: : OnlnitDialog () ; 
m_SliderEdges . SetRange (0 , 100 , TRUE) ; 
m_SliderEdges.SetTicFreq(10) ; 
m_SliderEdges . SetLineSize ( 1 ) ; 
m_SliderEdges . SetPageSize ( 10 ) ; 
m_SliderEdges . SetPos (m_Thr_Value ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void EdgesDialog : :OnHScroll (UINT nSBCode , UINT nPos, CScrollBar* pScrollBar) 
{ 

CString value; 

int nControl = pScrollBar- >GetDlgCtrlID () ; 

CSliderCtrl* pControl = ( CSl iderCtr 1 * ) GetDlgl tern (nControl ) ; 
switch (nControl) 

( 
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case IDC_SLIDER_EDGE 
ASSERT (pControl" 

m_Thr_Value = pCdntrol - >GetPos ( ) ; 
value . Format ( " %d" , m_Thr_Value ) ; 

GetDlgl tern ( IDC_SLIDER_EG_NUMBER) - >Se tWindovjText (value) 
break; 



default : 

CDialog : lOnHScroll (nSBCode, nPos, pScrollBar) ; 
break; 

) 

/* For Proof later 
if (m_pView) 

{ 
} 



m_pView-> Invalidate ( ) ; 
m_pView- >Update Window ( ) ; 



return; 



} 

BYTE EdgesDialog : iGetThreshold ( ) 
{ 

int t=m_Thr_Value ; 

t= (256*t) /ICQ ; if(t>255) t = 255; // convert to 8-bit scale 
return ( (BYTE) t) ; 
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// Email. h: interface for tbi 
// 

//////////////////////////// 



ail class. 

//////////////////////////////// 



/^^/// 



#if ! defined {AFX_EMAIL_H FDCA3A8 7_F053_11D3_9 789_00105A21774F INCLUDED_) 

#def ine AFX_EMAIL_H FDCA3A87_F05 3_1 1D3_9 789_0 01 05A21 774 F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 
#include <mapi.h> 
class Email 

{ 

public : 

bool Send(CString to, CString subject, CString text, 
CString f ileattachment , HWND hWnd=NULL) ; 

Ema i 1 ( ) ; 

virtual -Email (); 



protected : 

HINSTANCE 
LHANDLE 

LPMAPISENDMAIL 
LPMAPI LOGON 
LPMAPI LOGOFF 
HWND 



m_hlibMAPI ; 
m_lhSession ; 
m_MAPISendMail ; 
m_MAPILogon ; 
m_MAPILogOf f ; 
m hWndParent; 



private : 
,f=^ bool 
bool 



Logoff ( ) ; 

Logon (HWND hWnd=NULL) ; 



#iadif // !def ined(AFX_EMAIL_H FDCA3A87_F053_11D3_9789_00105A21774F INCLUDED_) 
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// Email. cpp: implementat io: 
// 

//////////////////////////// 

#include "stdafx.h" 
#include "Email. h" 



itifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE(]= FILE_ 

i^define new DEBUG_NEW 
#endif 



ij^^^the Email class. 

imiiiiiiiiiiiiiiiiii//nii//iiim^^in 



//i/tfiiiiiiiiiiit/fiiiiii/iii//iiiiiiiiiiiiiiiii/iii/iiiiiiiiiffiin/ 

1 / Construction/Destruction 

////////////////////////////////////////////////////////////////////// 



Email : : Email ( ) 

{ 

m_hWndParent=0 ; 
m_lhSession=0 ; 
m_hlibMAPI=0; 
m_MAP I Logon = 0 ; 
m_MAP I Logoff = 0; 
m MAPISendMail = 0; 



Email : : -Email ( ) 

}| 

/ 2^* ************************************************************************ 

* J" s 

* 3 Log to the Simple MAPI service 

*,^%***********************************************************************/ 

b^Ql Email :: Logon {HWND hWnd /*=NULL*/) 
{ = u 

s if (m_lhSession ! =0) 

AfxMessageBox (" Cannot load email service"); 
return false; 

m } 

S\ II Load Simple MAPI dll 

m_hlibMAPI = LoadLibrary ( "MAPI32 . DLL" ) ; // 32 bit clients 
5f if { !m_hlibMAPI) 

AfxMessageBox ( "Cannot load email service"); 
return false; 

} 

m hWndParent = hWnd; 



// Load MAPI functions 

m_MAPILogon = (LPMAPILOGON) GetProcAddress (m_hlibMAPI , "MAPILogon") ; 
m_MAPILogOff = { LPMAP I LOGOFF ) Get ProcAddre s s ( m_hl ibMAPI , "MAPILogof f " ) ; 
m_MAPISendMail = ( LPMAPI SENDMAIL) Ge t ProcAddress (m_hlibMAPI , "MAPISendMail" ) 

// Logon to MAPI 

switch (m_MAPILogon( (ULONG) m_hWndParent , NULL, NULL, 

MAPI_PASSWORD_UI/* | MAP I_FORCE_DOWNLOAD* / , OL, &m_lhSession) ) 

{ 

case MAPI_E_INSUFFICIENT_MEMORY: 

AfxMessageBox (" Insufficient memory to proceed"); 

return false; 
case MAPI_E_LOGIN_FAILURE: 

AfxMessageBox (" Failed to log on"); 

return false; 
case MAP I_E_TO0_MANY_SESS IONS : 

AfxMessageBox (" Failed : Too many email sessions open simultaneously"); 

return false; 
case MAPI_E_USER_ABORT : 

AfxMessageBox ( "Failed: User abort"); 

return false; 
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case SUCCESS_SUCCESS : 

return true; 
default: // MAPI_E_FArroRE: 

AfxMessageBox (" Failed to start email service"); 

return false; 

} 

return false; // must never get here 

} 



***************************************************************** 



* Log off the Simple MAPI service, 

* clean MAPI memory buffers (if needed) 
* 

**************************************************************************/ 

bool Email : : Logoff ( ) 

{ 

if {m_MAPILogOf f (m_lhSession, (ULONG) m_hWndParent , OL, OL) ! =SUCCESS_SUCCESS) 
{ 

AfxMessageBox (" Failed to terminate email session"); 
return false; 

) 

m_lhSession=0 ; 
return true; 

} 

/************************************************************************** 
* 

* _ Send the message 
* 

* *i*^* **********************************************************************/ 

b(^l Email :: Send (CString to, CString subject, CString text, 
CString f ileattachment , HWND hWnd/ *=NULL*/ ) 

S.t if ( ! LogOn (hWnd) ) return false; 
const ULONG ulReserved = OL; 

'^J // Initialize file attachment structure 
f^j MapiFileDesc attachment; 

CString name=f ileattachment ; 
: _ if (f ileattachment ! = " " ) 

Q int n = f ileattachment . ReverseFind ('/') ; 

if{n<0) n - f ileattachment . ReverseFind (' \\ ') ; 
if (n>0) name=f ileattachment -Mid (n+l) ; 
attachment . ulRe served=ulRe served ; 
attachment . f lFlags=0 ; 
attachment . nPosit ion= (ULONG) -1 ; 

attachment . lpszPathName= ( char* ) ( LPCSTR) f i leat tachment ; 
attachment . IpszFi leName- ( char* ) (LPCSTR) name ; 
attachment . IpFi leType=NULL ; 

} 

// Initialize "to" recipient 
CString toAddress:=CString { "SMTP : " ) +to; 
MapiRecipDesc recips; 
recips . ulReserved = ulReserved; 
recips . ulRecipClass = MAPI_TO; 
recips . IpszName = ( char* )( LPCSTR) to ; 
recips . IpszAddress = (char*) { LPCSTR) toAddress ; 
recips . ulEIDSize =0; 
recips . IpEntrylD :=NULL; 

// Initialize MAPI message for one recipient, with at most one attachment 
MapiMessage message; 
message . ulReserved = ulReserved; 
message . IpszSubj ect = ( char *)( LPCSTR) sub j ect ; 
message . IpszNoteText = ( char *)( LPCSTR) text ; 
message , IpszMessageType = NULL; 
message , IpszDateReceived = NULL; 
message . IpszConver sat ionID = NULL; 
message . flFlags = 0; 
message . IpOriginator = NULL; 
message . nRecipCount = 1; 
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message . IpRecips = &recij 
if (f ileattachment ! ) 
{ 

message , nFileCount = 1; 
message . IpFiles = &attachment; 

} 

else 

{ 

message - nFileCount = 0; 
message , IpFiles = NULL; 

} 

ULONG err=m_MAPISendMail { m_lhSession, ( ULONG) m_hWndParent , 

^message, MAPI_DIALOG, OL) ; 

switch (err) 
{ 

case MAPI_E_AMBIGUOUS_RECIPIENT: 

Af xMessageBox ( " Send f ai led : \nAmbiguous recipient description"); 
break; 

case MAPI_E_ATTACHMENT_NOT_FOUND: 

Af xMessageBox ( " Send failed:\nThe specified attachment was not found"); 
break; 

case MAP I_E_ATTACHMENT_OPEN_FAI LURE : 

Af XMessageBox ( "Send failed:\nThe specified attachment could not be opened" 
break; 

case MAPI_E_BAD_RECIPTYPE: 

Af xMessageBox ( "Send failed:\nBad recipient type"); 
break; 

case MAPI_E_INSUFFICIENT_MEMORY: 

Af xMessageBox {" Send f ai led : \nlnsuf f icient memory"); 
break; 

case MAPI_E__INVALID_RECIPS : 

Af xMessageBox {" Send f ai led : \nlnval id recipient ( s )") ; 
break; 

case MAPI_E_LOGIN_FAILURE: 

Af xMessageBox {" Send f ai led : \nFai led to log on successfully"); 
break; 

case MAPI_E_TEXT_TOO_LARGE: 

Af XMessageBox ( "Send failed:\nThe text in the message was too large"); 
break; 

case MAPI_E_TOO_MANY_FILES: 

Af xMessageBox (" Send f ai led : \nThere were too many file attachments"); 
break; 

case MAPI_E_TOO_MANY_RECIPIENTS: 

Af xMessageBox (" Send f ai led : \nThere were too many recipients"); 
break; 

case MAPI_E_UNKNOWN_RECIPIENT: 

Af XMessageBox ( "Send f ai led : \nUnknown recipient"); 
break; 

case MAPI_E_USER_ABORT: 

Af xMessageBox {" Send f ai led : \nUser abort"); 

break; 
case SUCCESS_SUCCESS : 

break; 

default: // MAPI_E_FAILURE: 

Af xMessageBox (" Send failed"); 
break; 

} 

return ( err==SUCCESS_SUCCESS ) LogOffO; 
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#if ! defined (AFX_FILEBROWSEI^^B5F74D80_CC60_llD2_9614_00105A23^k' INCLUDED_ 

#def ine AFX_FILEBROWSER_H d^^D80_CC6 0_llD2_9614_00105A21774Fj^B:LUDED_ 



#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 10 00 
//FileBrowser . h : header file 
// 

#include "afxinet.h" 

#include " FTPLoginDialog . h" // Added by ClassView 

///////////////////////////////////////////////////////////////////////////// 
// FileBrowser dialog 

class FileBrowser : public CDialog 

{ 

// Construction 
public : 

bool Initialize (CString temp_dir) ; 
CString m_RequestedFile ; 

FileBrowser (CWnd* pParent = NULL); // standard constructor 
-FileBrowser () ; // destructor 

// Dialog Data 

/ / { { AFX_DATA ( F i 1 eBr owser ) 

enum { IDD = IDD_DI ALOG_FILE_BROWSE }; 

CListCtrl m_List_FTP; 

CComboBox m_DriveList; 
rj CListCtrl m_List; 

CString m_Directory; 
Z: int m_NumFiles ; 

int m_NumFilesTotal ; 

dl CString m_Directory_FTP ; 
\l int m_NumFiles_FTP; 
J int m_NumFilesTotal_FTP; 
'^f CString m_INhost; 
d} CString m_SpeedInf o ; 
nj //}}AFX_DATA 

/^=Overrides 

ri // ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL{ FileBrowser) 
protected: 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

C] // } }AFX_VIRTUAL 

s s 

/'T^ Implementat ion 
protected : 

// Generated message map functions 
//{ {AFX_MSG( FileBrowser) 
virtual BOOL Onini tDialog ( ) ; 

afx_msg void OnDblclkLi st (NMHDR* pNMHDR, LRESULT* pResult); 
afx_msg void OnSelchangeFi leBrowseCombo {) ; 

afx_msg void OnColumncl ickLi st (NMHDR* pNMHDR, LRESULT* pResult); 

afx_msg void OnButtonFtpGet () ; 

afx_msg void OnButtonFtpPut () ; 

afx_msg void OnLocRef resh () ; 

afx_msg void OnFtpRef resh () ; 

afx_msg void OnGoFtpO; 

afx_msg void OnLocalhos tShowDICOMonly { ) ; 

afx_msg void OnUpdateLocalhost ShowDICOMonly ( CCmdUI * pCmdUI) ; 
afx_msg void OnRemotehostFil terDICOMf iles () ; 

afx__msg void OnUpdateRemotehostFilterDICOMf iles (CCmdUI * pCmdUI); 
afx_msg void OnRemotehost ShowDICOMonly () ; 

afx_msg void OnUpdateRemotehostShowDICOMonly ( CCmdUI * pCmdUI); 
afx_msg void OnLocalhostDele te ( ) ; 
afx_msg void OnRemotehostDelete () ; 
afx_msg void OnLocaihostRename ( ) ; 
afx_msg void OnRemotehostRename () ; 

afx_msg void OnRclickList (NMHDR* pNMHDR, LRESULT* pResult); 
afx_msg void OnLocalhostCreateNewDirectory ( ) / 
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afx_msg void OnRemoteho^^^ateNewDirectory ( ) ; 
afx_msg void OnRemoteho^^^Pn ( ) ; 

afx_msg void OnLocalhostOpen ( ) ; 

afx_msg void OnUpdateLocalhostOpen (CCmdUI * pCmdUI); 
afx_msg void OnUpdateRemotehostOpen (CCmdUI * pCmdUI) ; 
// } )AFX_MSG 

afx_msg LRESULT OnKickldle ( WPARAM , LPARAM) ; 
DECLARE_MESSAGE_MAP ( ) 
private : 

void OpenFile_or_Directory (bool local, int item) ; 
bool CreateNewDirectory (CListCtrl ScmyList, bool is_local) ; 
bool RenameFile_or_Directory (CListCtrl& myList, bool is_local) ; 
bool DeleteFile_or_Directory (CListCtrlSc myList, bool i3_local); 
bool m_DCMonly_FTP; 

bool FileTransf er (CString ftp_name, CString loc_name, bool to_local, int size=-l) ; 

int FindName (CString f name , CListCtrl& myList); 

void DICOM_Filter (CListCtrlfic myList, bool ftp); 

bool resetFTP ( ) ; 

CString m_ParentDirectory_FTP ; 

void deleteFTP ( ) ; 

bool resetFTP (CString host, CString logon, CString pwd) ; 
bool m_FilterFTP; 
bool m_DCMonly_loc ; 
CString m_INpas sword; 
CString m_INlogon; 

CFtpConnect ion* m_pFTPConnect ion ; 
CInternetSession m_InSession; 

void OpenedFilesListRemove (CString fullname) ; 

bool OpenedFilesListFind (CString fullname) ; 

void OpenedFilesListAdd (CString fullname); 
^: CMap<CString, LPCSTR, int , int&> m_Opened; 
y= CString m_TempFile; 
J5 CString m_ParentDirectory ; 

C"h void SetltemlmageState ( int nitem, int state, CListCtrlSc myList); 
^! int GetltemlmageState ( int nitem, CListCtrl& myList); 

CImageList m__ImageList ; 
•J% void SortByColumn ( int col, CListCtrlSc myList); 

f^'l int FindFiles (CListCtrl& myList, bool ftp, CString directory= " " ) ; 
int GetSelectedPosition (bool local); 

/p^=i{ {afx_insert_location} } 

Microsoft Visual C++ will insert additional declarations immediately before the previous line, 
ftendif // ! defined (AFX_FILEBR0WSER__H B5F74D80_CC6 0_11D2_96 14_0 0105A217 74F INCLUDED_) 
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^E^^^' and, fName, fValue) ; 



f ilter . Format ( '*%s %£ 

} 

m_strFilter += filter; 

} 

void ODBCTableSet : : AndFilter (CString f Name , DateTimeSegment &dValue, 

const BYTE dFormat) 

{ 

CString filter ( " " ) ; 

CString and = (m_strFilter == ? : " AND"); 
if (dFormat==DateTime : : DateFormat ) // Date 

{ 

int nStart = dValue . GetStart ( ) . GetNumer icDate ( ) ; 
int nEnd - dValue . Get End (). GetNumer icDate () ; 

if (nStart==nEnd) // exact date 

{ 

if{nStart<0) return; 

f ilter , Format (" %s %s=%d and, fName, nStart); 
m_strFilter += filter; 
return ; 

} 

// We have interval 

if (nStart<0) nStart =0 ; 

if (nEnd<0) 

( 

filter. Format ( "%8 %s>=%d ", and, fName, nStart); 

} 

else 

ES { 

..^ filter. Format ( "%s %s BETWEEN %d AND %d and, fName, 

nStart , nEnd) ; 

01 } 

J| m_strFilter += filter; 

:r^5 return; 

'"^^ else if (dFormat = = DateTime : :TimeFormat) // Time 

€1 { 

double nStart = dValue . GetStart (). GetNumer icTime () ; 
double nEnd = dValue , GetEnd (), GetNumer icTime () ; 



m 



l== if (nStart = = nEnd) // exact date 

Ci ( 

if(nStart<0) return; 
MJ f ilter . Format (" %s %s=%f and, fName, nStart); 

m_strFilter += filter; 
return; 

ci ^ 

// We have interval 

if (nStart<0) nStart=0; 

if (nEnd<0) 

( 

filter. Format ( "%s %s>=%f and, fName, nStart); 

} 

else 
{ 

filter. Format { "%s %s BETWEEN %f AND %f and, fName, 

nStart , nEnd) ; 

} 

m_strFilter += filter; 
return; 

} 

return; 

} 

* 

* Add a record to the database, if it did not exist, 

* or update record empty fields, if the record already existed 

*********************************************************************/ 

bool ODBCTableSet : :AddOrUpdate (DICOMRecord &dr) 
{ 
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TRY 
{ 

if { IsOpen ( ) ) Close 
if { !Open{CRecordset : :dynaset, ( LPCSTR) GetDef aul tQuery ( dr ) ) ) return false 
if ( ICanUpdate 0 ) { Close {); return false; } 

if(IsEOF()) // need to insert new record 
{ 

AddNew( ) ; 

if ( ! SetFromDICOMRecord (dr ) ) { Close (); return false; } 
if (! Update 0 ) { Close (); return false; } 

} 

else // need to update empty fields in existing record 

{ 

Edit 0 ; 

UpdateFromDICOMRecord (dr ) ; 
Update 0 ; 

} 

Close ( ) ; 
return true; 

} 

CATCH (CExcept ion, e) 
{ 

#ifdef _DEBUG 
e->ReportError ( ) ; 
#endif 

return false; 

} 

END_CATCH ; 
return false; 

)Q 

/*^* ******************************************************************* 

*y= Write data into DICOMObject via DICOMRecord 
*-.fl 

* *"* ******************************************************************/ 

vqid ODBCTableSet : :WriteIntoDICOMObject (DICOMObject &dob, DICOMObject *dob_mask) 

=n DICOMRecord dr; 

p'l WritelntoDICOMRecord(dr) ; 

dr . WritelntoDICOMObj ect (dob , dob_mask) ; 

]'f^i/ //////////////////////////////////////////////////////////////////////// / 

/W ODBCPatientSet 

m 

/fi///////// ////////////////////////////////////////////////////////// /////// 

I0PLEMENT_DYNAMIC (ODBCPatientSet , CRecordset) 

ODBCPatientSet: : ODBCPat ientSet ( CDatabase* pdb) 

: ODBCTableSet ( theApp , app_DataBase . Ge tCDatabasePtr ( ) ) 

{ 

// ( (AFX_FIELD_INIT (ODBCPat ientSet ) 

ClearSet () ; 

m_nFields = 4; 

// } }AFX_FIELD_INIT 

} 

/*★******************************************************************* 
* 

* Defining SQL parameters 
* 

*********************************************************************/ 

CString ODBCPat ientSet :: GetDef aul tQuery (DICOMRecord^ dr) 

{ 

CString query; 

query. Format ("SELECT * FROM [Patient] WHERE Pat lent ID= ' %s , 

: :Trim(dr .GetPatientlDO ) ) ; 

return query; 

} 

CString ODBCPatientSet: iGetDef aultSQL ( ) 
{ 

return T (" [Pat lent ]") ; 
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} 

void ODBCPatientSet : : SetFind 

{ 

m strFilter = " " ; 



r (DICOMRecord &dr) 



// Add whatever is known from DICOMRecord. If the primary key 
// is known for a table, do not use other table fields 
AndFilter{ "Patient ID" , dr . Get Pat lent ID ( ) ) ; 
if ( ! : : IsUniqueString (dr . GetPatient ID { ) ) ) 

{ 

AndFil ter ( " Pat ient Name" , dr . GetPat ientName ( ) ) ; 

AndFil ter ( " PBirthDate " , dr . GetPBir thDate ( ) , DateTime : : DateFormat ) 
AndFilter ( " PBirthTime" , dr . GetPBir thTime ( ) , DateTime : :TimeFormat) 

} 



void ODBCPatientSet : :DoFieldExchange (CFieldExchange* pFX) 
{ 

/ / { { AFX_F I ELD_MAP ( ODBCPa tientSet) 
pFX- >SetFieldType (CFieldExchange : : outputColumn) ; 
RFX_Text (pFX, _T ( " [Patient ID] " ) , m_PatientID) ; 
RFX_Text (pFX, _T ( " [ Pat ientName] ") , m_Pat ientName ) ; 
RFX_Double (pFX, _T ( " [PBirthTime] ") , m_PBir thTime) ; 
RFX_Long (pFX, _T ( " [PBirthDate] ") , m_PBirthDate) ; 
// } }AFX_FIELD_MAP 

} 



Clear patient recordset data 

**************************************************** 

void ODBCPatientSet :: ClearSet ( ) 

CI 

m_PatientID = _T ( " " ) ; m_Pat ientName = _T ( " " ) ; 
J% m_PBirthTime = -1.0; m_PBirthDate = -1; 



*=5*s Exchanging data with DICOMRecord 

************************************************** 

\?©id ODBCPatientSet :: UpdateFromDICOMRecord (DICOMRecord &dr) 

'-^ char* s; 

if (m_Pat ientName== " " ) 

s=dr , GetPat ientName 0 ; 

if ( ! : : IsEmptyString ( s) ) m_Pat ientName = ::Trim(s); 

f (m_PBirthDate <= 0) 

int nDate = dr . GetPBir thDate (). GetStart (), GetNumericDate () ; 
if(nDate > 0) m_PBirthDate = nDate; 

f {m_PBirthTime < 0) 

double dTime = dr . GetPBirthDate (). GetStart (). GetNumericTime () ; 
if(dTime >= 0) m_PBir thTime=dTime ; 

} 

bool ODBCPatientSet : :SetFromDICOMRecord (DICOMRecord &dr) 



if (!:: IsUniqueString (dr . Get Patient ID 0) ) return false; 

ClearSet () ; 

UpdateFromDICOMRecord (dr) ; 

m_PatientID = :: Trim (dr . GetPatient ID ()) ; 

return true; 

} 

void ODBCPatientSet : :WriteIntoDICOMRecord (DICOMRecord &dr) 
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P^^Bm_PatientID, (char*) (LPCSTR) m_Pa^^B:^ 

L^^ffime, NULL, 



dr . SetRecord{ (char*) (LP^^^ ient ID , (char*) (LPCSTR) m_Pa^^P:Name , 

m_PBirthDate , m_PBi3 
NULL, NULL, 
NULL, -1,-1,0, 
NULL, NULL, 
NULL, NULL, 
NULL, NULL) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// 

// ODBCStudySet 
// 

///////////////////////////////////////////////////////////////////////////// 
IMPLEMENT_DYNAMIC (ODBCStudySet , CRecordset ) 

ODBCStudySet: : ODBCStudySet (CDatabase* pdb) 

: ODBCTableSet ( theApp . app_DataBase . GetCDatabasePtr ( ) ) 

{ 

// { {AFX_FIELD_INIT (ODBCStudySet ) 

ClearSet ( ) ,- 

m_nFields = 7; 

// } }AFX_FIELD_INIT 

} 

void ODBCStudySet :: ClearSet ( ) 
{ 

m_PatientID = _T ( " " ) ; m_StudyInstUID = _T ( " " ) ; 

m_StudyID = _T ( " " ) ; m_AccessionNumber = _T ( " " ) ; 

m_StudyTime = -1.0; m_StudyDate = -1; 

Cj m_StudyImagesNum = _T ( " " ) ; 

)m 

/ jt> ******************************************************************* 

*^4J Defining SQL parameters 

•k ********************* *************************** 

C'^ring ODBCStudySet :: GetDefaultQuery (DICOMRecord &dr) 
CString query; 

query. Format ("SELECT * FROM [Study] WHERE Study Ins tUID= ' %s , 
~ : :Trim(dr .Get Study Ins tUI DO ) ) ; 

P= return query; 

Si 

CString ODBCStudySet: :GetDef aultSQL ( ) 

pi 

p return _T ( " [Study] " ) ; 

hi 

void ODBCStudySet :: SetFindFilter (DICOMRecord Scdr) 
{ 

m_strFilter = " " ; 

// Add whatever is known from DICOMRecord. If the primary Icey 
// is known for a table, do not use other table fields 
AndFilter ( "StudylnstUID" , dr . Get StudylnstUID ( ) ) ; 
if ( ! : :IsUniqueString(dr,GetStudyInstUID() ) ) 
{ 

AndFilter ( "Patient ID" , dr . Get Pat ient ID ( ) ) ; 

AndFilter("StudyID",dr.GetStudyID() ) ; 

AndFilter ( " StudylmagesNum" , dr . Get Study ImagesNum ( ) ) ; 

AndFilter ( "Access ionNumber" , dr . Ge tAccessionNumber () ) ; 

AndFilter ( "StudyDate" , dr . GetStudyDate () , DateTime : :DateFormat) ; 

AndFilter ( "StudyTime" , dr . GetStudyTime ( ) , DateTime : :TimeFormat) ; 

) 

} 

void ODBCStudySet : :DoFieldExchange (CFieldExchange* pFX) 
{ 

// { {AFX_FIELD_MAP (ODBCStudySet) 

pFX- >SetFieldType (CFieldExchange : : outputColumn) ; 
RFX_Text (pFX, _T ( " [PatientID] ") , m_PatientID) ; 
RFX_Text (pFX, _T ( " [ Study InstUID] ") , m_Study InstUID) ; 
RFX_Text (pFX, _T ( " [StudylD] ") , m_StudyID) ; 

RFX_Text (pFX , _T ( " [AccessionNumber] ") , m_Acce s s ionNumber ) ; 
RFX_Double (pFX, _T ( " [StudyTime] ") , m_StudyTime) ; 
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RFX_Long (pFX, _T("[Stud 
RFX_Text (pFX, _T("[Stud 
// } }AFX_FIELD_MAP 



m 



] " ) , m_StudyDate) ; 
esNuml"), m_ Study I mage sNum) 



* Exchanging data with DICOMRecord 

************************************************★*********************/ 

void ODBCStudySet : :UpdateFromDICOMRecord( DICOMRecord &dr) 

{ 

char* s; 

if (m_PatientID==" " ) 

s=dr.GetPatientID() ; 

if ( ! : : IsEmptyString (s) ) m_PatientID = ::Trim(s); 
f (m_StudyID==" ") 

s=dr .GetStudylDO ; 

if (!:: IsEmptyString ( s) ) m_StudyID = ::Trim(9); 
f (m AccessionNumber== " " ) 



AS, 



s = dr , GetAccessionNumber ( ) ; 

if ( ! : : IsEmptyString { s) ) m_AccessionNumber 

f (m_Study Image sNum== " " ) 



:Trim(s) ; 



s = dr . GetStudy ImagesNum ( ) ; 

if (!:: IsEmptyString ( s) ) m_Study ImagesNum = ::Trim(s); 

f (m_StudyDate <= 0) 

int nDate = dr . GetStudyDate (), Get Start (). GetNumericDate () ; 
if(nDate > 0) m_StudyDate = nDate; 

f (m_StudyTime < 0) 

double dTime = dr . Get StudyTime ( ) . GetStart ( ) . GetNumer icTime { ) ; 
t,!. if {dTime >= 0) m_StudyTime = dTime ; 

P 

lUibl ODBCStudySet: :SetFromDICOMRecord (DICOMRecord &dr) 

-.: if ( ! : : I sUniqueString (dr . GetStudylnstUID ( ) ) ) return false; 
y ClearSet () ; 

Tj UpdateFromDICOMRecord (dr ) ; 

m_StudyInstUID = :: Trim ( dr . GetStudy InstUID ()) ; 
return true; 

} 

void ODBCStudySet : :WriteIntoDICOMRecord (DICOMRecord &dr) 
{ 

dr . SetRecord ( (char*) ( LPCSTR) m_Pat ient ID , NULL , 
-1, -1.0, (char*) ( LPCSTR) m_Study InstUID , 

(char*) (LPCSTR) m_StudyID, (char*) ( LPCSTR) m_AccessionNumber , 
( char* ) (LPCSTR) m_Study ImagesNum, m__StudyDate , m_StudyTime , 

NULL, NULL, 

NULL, NULL, 

NULL, NULL) ; 



f / 1 1 1 1 1 1 1 1 1 1 1 / 1 / 1 / / 1 1 1 1 1 1 / / 1 / 1 1/ 1 1 1 U N / 1 1 / 1 1 N 11 1 1 1 / 1 1 1 1 / 1 / / 1 1 1 1 / 1 1 1 1 / / 1 / 1 1 / 
1/ 

I / ODBCSeriesSet 
// 

///////////////////////////////////////////////////////////////////////////// 
IMPLEMENT_DYNAMIC (ODBCSeriesSet , CRecordset) 

ODBCSeriesSet : : ODBCSeriesSet (CDatabase* pdb) 

: ODBCTableSet ( theApp . app_DataBase . GetCDatabasePtr ( ) ) 

{ 

// { ( AFX_FIELD_INIT (ODBCSeriesSet ) 



13 



ODBC. cpp 



10/27/00 



ClearSet () ; 

m_nFields = 4; 

//} }AFX_FIELD_INIT 



void ODBCSeriesSet :: ClearSet ( ) 



m_StudyInstUID = _T ( " " ) ; m_Series InstUID = _T ( " " ) ; 
m_Modality = _T { " " ) ; m_SeriesNum = _T ( " " ) ; 



/********•*********** 



************************************************** 



* Defining SQL parameters 
* 

*********************************************************************/ 
CString ODBCSeriesSet : :GetDefaul tQuery (DICOMRecord &dr) 

{ 

CString query; 

query . Format ( "SELECT * FROM [Series] WHERE SeriesInstUID= ' %s ' " , 

: :Trim(dr .GetSeriesInstUIDO ) ) ; 

return query; 

} 

CString ODBCSeriesSet: :GetDef aultSQL ( ) 
{ 

return _T ( " [Series] ; 

} 

void ODBCSeriesSet :: SetFindFilter (DICOMRecord &dr) 
t=^ m_str Filter = " ; 

fl^ II Add whatever is Icnown from DICOMRecord. If the primary Icey 

// is known for a table, do not use other table fields 
=3 AndFilter ( " Series InstUID" , dr . GetSeriesInstUID ( ) ) ; 
SJ if ( ! : : I sUniqueString (dr .GetSeriesInstUID ( ) ) ) 

J1 { 

AndFilter ( "StudylnstUID" , dr . Get Study InstUID ( ) ) ; 
AndFilter ( "Modality" , dr . GetModality ( ) ) ; 
nJ AndFi 1 ter ( " Ser iesNum" , dr . Get Ser iesNum { ) ) ; 

} 

vgid ODBCSeriesSet : :DoFieldExchange (CFieldExchange* pFX) 

(ni 

// { {AFX_FIELD_MAP (ODBCSeriesSet) 
2^ pFX- >SetFieldType ( CFieldExchange : : outputColumn) ; 
Q RFX_Text (pFX, _T ( " [StudylnstUID] "} , m_Study InstUID) ; 

RFX_Text (pFX, _T ( " [Series InstUID] " ) , m_Ser iesInstUID) ; 
~" RFX__Text (pFX, _T (" [Modal i ty] ") , m_Modality) ; 

RFX_Text (pFX, _T ( " [SeriesNum] ") , m_SeriesNum) ; 

// } }AFX_FIELD_MAP 

) 

/********************************************************************* 
* 

* Exchanging data with DICOMRecord 
* 

**********************************************************************/ 
void ODBCSeriesSet :: UpdateFromDICOMRecord (DICOMRecord &dr) 

( 

char* s; 

//static UINT alt=0; 
if (m_StudyInstUID==" " ) 
{ 

s = dr .GetStudyInstUID( ) ; 

if ( ! : : IsEmptyString ( s) ) m_Study InstUID = ::Trim(s); 

) 

/* 

else 
{ 

// Consistency check 

CString prkey = : : Tr im (dr . GetSer iesInstUID ( ) ) ; 
if ( m_SeriesInstUID == prkey &5e 

m_StudyInstUID != dr . GetStudy InstUID () ) 
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tat("%9.%d", prkey,alt); 
InstUIDO , "%s" ,m SeriesInstUID.L?ff{6 



alt++ ; 

m_Serie3ln3t:UID A 

sprintf (dr .GetSerWsInstUIDO , "%s" , m_SeriesInstUID . Le^{64 ) ) ; 
} 

} 

*/ 

if (m_Modality==" " ) 
{ 

s = dr . GetModality ( ) ; 

if ( ! : : IsEmptyString ( s) ) m_Modality = ::Trim(s); 

} 

if (m_SeriesNum==" " ) 
{ 

s = dr . GetSeriesNum ( ) ; 

if (!:: IsEmptyString ( s) ) m_SeriesNum = ::Trim(s); 

} 

} 

bool ODBCSeriesSet : :SetFromDICOMRecord(DICOMRecord &dr) 
{ 

if ( ! : : IsUniqueString (dr -GetSeriesInstUID () ) ) return false; 

ClearSet () ; 

UpdateFromDICOMRecord (dr ) ; 

m_SeriesInstUID = : : Trim (dr . GetSeries InstUID ( ) ) ; 
return true ; 

} 

void ODBCSeriesSet :: WritelntoDICOMRecord (DICOMRecord &dr) 
{ 

dr . SetRecord(NULL,NULL, 

-1, -1.0, (char*) (LPCSTR) m_Study InstUID , 
Q NULL, NULL, 

J3 NULL, -1, -1.0, 

^\ (char*) (LPCSTR)m_SeriesInstUID, (char*) (LPCSTR) m_Modality, 

(char*) ( LPCSTR) m_SeriesNum, NULL, 
^J3 NULL, NULL) ; 

]jh/// //////////////////////////////////////////////////////////// ////////// 
/'it 

ODBCImageSet 

ml 

/J/////////////////////////////////////////////////////////////////////////// 
I£|1JPLEMENT_DYNAMIC (ODBCImageSet , CRecordset) 

cSfec Image Se t : : ODBCImageSet ( CDatabase* pdb) 
n= : ODBCTableSet ( theApp . app_DataBase .GetCDatabasePtr 0 ) 

^= // { (AFX_FIELD_INIT (ODBCImageSet) 
LJ ClearSet ( ) ; 
r% m_nFields = 4 ; 

■"^ // } }afx_field_init 

} 

void ODBCImageSet :: ClearSet 0 
{ 

m_SeriesInstUID = _T ( " " ) ; m_SOPInstUID = _T ( " " ) ; 
m_ImageNum = _T ( " " ) ; m_Filename = _T ( " " ) ; 

} 

* 

* Defining SQL parameters 
* 

****************************************************** 
CString ODBCImageSet :: GetDefaultQuery (DICOMRecord &dr) 
{ 

CString query; 

query . Format ( "SELECT * FROM [Image] WHERE SOPInstUID=: ' %s ' " , 

: :Trim(dr, Get SOP InstUIDO ) ) ; 

return query; 

} 

CString ODBCImageSet : : Ge tDef aul t SQL ( ) 
{ 

return _T ( " [Image] ") ; 

} 

void ODBCImageSet : rSetPindFilter (DICOMRecord &dr) 
{ 

m strFilter = " " ; 
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, <St5 nc 



// Add whatever is known^^^Rn DICOMRecord. If the primary k 
// is known for a table, ^ro not use other table fields 
AndFilter ("SOPInstUID^dr .GetSOPInstUIDO ) ; 
if ( ! : :IsUniqueString(dr.GetSOPInstUID() ) ) 
{ 

AndFilter ( " Series InstUID" , dr . Get Series InstUID () ) ; 
AndFilter ( " ImageNum" , dr . Get ImageNum () ) ; 
AndFilter ( " Filename" , dr . GetFileName ( ) ) ; 



) 

void ODBCImageSet : :DoFieldExchange (CFieldExchange* pFX) 



{ 



/ / { { AFX_F I ELD_MAP ( ODBC I mage S e t ) 

pFX- >SetFieldType (CFieldExchange : : outputColumn) ; 
RFX_Text (pFX, _T ( " [ Series InstUID] ") , miseries InstUID) ; 
RFX_Text (pFX, _T ( " [SOPInstUID] ) , m_SOPIns tUID) ; 
RFX_Text (pFX, _T ( " [ImageNum] ) , m_ImageNum) ; 
RFX_Text (pFX, _T (" [Filename] ") / m_Filename) ; 
// } }AFX_FIELD_MAP 



* Exchanging data with DICOMRecord 

*************************************************** 

void ODBCImageSet :: UpdateFromDICOMRecord (DICOMRecord &dr) 



char* s; 

if (m_SeriesInstUID==" " ) 

s = dr . GetSeriesInstUID ( ) ; 

if ( ! : : IsEmptyString ( s) ) m_Series InstUID 

f (m_ImageNum== " " ) 



: : Trim ( s) 



s = dr . Get ImageNum 0 ; 

if (!:: IsEmptyString (s) ) m_ImageNum = ::Trim(s); 



f (m Filename^ 



s = dr . GetFi leName { ) ; 

if ( ! : : IsEmptyString (s) ) m_Filename 



:Trim(s) ; 



l^ol ODBCImageSet :: SetFromDICOMRecord (DICOMRecord &dr) 

if ( ! : : IsUniqueString (dr .GetSOPInstUID ( ) ) ) return false; 
ClearSet ( ) ; 

UpdateFromDICOMRecord (dr) ; 

m_SOPInstUID = :: Trim ( dr . Get SOPInstUID ()) ; 
return true; 



void ODBCImageSet : :WriteIntoDICOMRecord (DICOMRecord &dr) 
{ 

dr . Se tRecord ( NULL , NULL , 
-1, -1.0, NULL, 
NULL, NULL, 
NULL, -1,-1.0, 

(char*) {LPCSTR)m_Series InstUID, NULL, 
NULL, (char*) ( LPCSTR) m_SOPInstUID , 

(char*) (LPCSTR) m_ImageNum, (char*) { LPCSTR) m_Fi lename ) ; 



///////////////////////////////////////////////////////////////////////////// 
// ODBC4Set 

IMPLEMENT_DYNAMIC (ODBC4Set , CRecordset) 

0DBC4Set: : ODBC4 Se t ( CDa tabase* pdb) 

: ODBCTableSet ( theApp . app_DataBase . GetCDatabasePtr { ) ) 

( 
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// { {AFX_FIELD_INIT (ODBC4 
ClearSet () ; 
m_nFields = 19; 

//) }afx_field_init 

} 

void 0DBC4Set :: ClearSet 0 
{ 

m SeriesInstUID = T(""); m_S0PIn3tUID = _T ( " " ) ; 




m_ImageNum = _T ( " " ) 
m_PatientID = _T ( " " 
m_PBirthTime = -1.0 
m_StudyInstUID = _T 
m_Modality = _T ( " " ) 



m_Fi lename = _T ( " ) ; 
m_PatientName = _T(""); 
m_PBirthDate = - 1 ; 
m_SeriesInstUID2 = _T { " " ) ; 
m SeriesNum = T(""); 



} 



m_PatientID2 = _T ( " " ) ; m_Study InstUID2 = _T ( " " ) ; 

m_StudyID = _T ( " " ) ; m_AccessionNumber = _T { " ; 

m_StudyTime = -1.0; m_StudyDate = -1; 
m_StudyImagesNum = _T ( " " ) ; 



CString ODBC4Set : : GetDef aul t SQL ( ) 
{ 

return _T ( " [Image] , [Patient] , [Series] , [Study] ") ; 

} 



/ 



******************************************************************** 



* Redefines pure virtual from the base class. Unused 
* 

***************************************************** 
cSiring ODBC4 Set :: GetDef aul tQuery (DICOMRecord &dr) 

m 

m_strFilter = " [Pat ient] . [Pat ient ID] = [Study] . [Patient ID] AND " 

" [Study] . [StudylnstUID] = [Series] . [StudylnstUID] AND 
C- " [Series] . [SeriesInstUID] = [Image] . [SeriesInstUID] " 

"-:J return m_strFilter; 

In 

Vpiid 0DBC4Set : : DoFieldExchange (CFieldExchange* pFX) 

L' 

//{ {AFX_FIELD_MAP(0DBC4Set) 
^" pFX->SetFieldType (CFieldExchange : :outputColumn) ; 
p RFX_Text (pFX, _T ( " [Image] . [SeriesInstUID] ") , m_Ser ies InstUID) ; 
S| RFX_Text (pFX, _T ( " [ SOPInstUID] " ) , m_SOPInstUID) ; 

RFX_Text (pFX , _T ( " [ ImageNum] " ) , m_ImageNum) ; 

RFX_Text (pFX, _T ("[ Fi lename ]") , m_Fi lename ) ; 
O RFX_Text (pFX, _T ( " [Patient] . [Patient ID] ") , m_PatientID) ; 
r% RFX_Text (pFX, _T { " [ Pat ientName ] ") , m_Pat ientName ) ; 
"'^ RFX_Double (pFX, _T ( " [PBirthTime] ") , m_PBirthTime ) ; 

RFX_Long {pFX, _T ( [PBirthDate] ") , m_PBirthDate ) ; 

RFX_Text (pFX, _T ( " [Series] . [StudylnstUID] ") , m_StudyInstUID) ; 

RFX_Text (pFX, _T ( " [Series] . [SeriesInstUID] ) , m_Ser iesInstUID2 ) ; 

RFX_Text (pFX, _T ( " [Modality] ") , m_Modality) ; 

RFX_Text (pFX, _T ( " [SeriesNum] ") , m_SeriesNum) ; 

RFX_Text (pFX, _T ( " [Study] . [PatientID] " ) , m_Pat ient ID2 ) ; 

RFX_Text (pFX, _T ( " [Study] . [StudylnstUID] ") , m_Study InstUID2 ) ; 

RFX_Text (pFX, _T ( " [StudylD] ") , m_StudyID) ; 

RFX_Text (pFX , _T ( " [AccessionNumber ] " ) , m_AccessionNumber) ; 
RFX_Double (pFX, _T ( " [StudyTime] ") , m_StudyTime) ; 
RFX_Long (pFX, _T ( " [StudyDate] ") , m_StudyDate) ; 
RFX_Text (pFX , _T ("[ Study ImagesNum] ") , m_S tudy Image sNum) ; 

// } }afx_field_map 

} 

/************★******************************************************* 
* 

* Set complete WHERE find filter 
* 

********************************************************************* 

void 0DBC4Set : :SetFindFilter (DICOMRecord &dr) 

{ 

// Relational constraint 

m_strFilter = MPatient] . [Patient ID] = [Study] . [Patient ID] AND " 

" [Study] . [StudylnstUID] = [Series] . [StudylnstUID] AND 
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[Series] . 



fkiesInstUID] = [Image] . [ Series Inst Uj^^" 
om DICOMRecord. If the primary ke^^^^ 



// Add whatever is known 
// is known for a table, do not use other table fields 
AndFilter (" [Patient] . [PatientID] " , dr . GetPat ient ID ( ) ) ; 
if ( ! : : IsUniqueString (dr . Get Pat ient ID ( ) ) ) 
{ 

AndFilter ( "PatientName" , dr . Get Pat ientName ( ) ) ; 

AndFilter ( "PBirthDate" , dr . Get PBirthDate ( ) , DateTime : :DateFormat ) ; 
AndFilter("PBirthTime'\dr.GetPBirthTime() , DateTime: :TimeFormat) ; 

) 

AndFilter (" [Study] . [Study InstUID] dr . Get StudylnstUID ( ) ) ; 

if ( ! : : IsUniqueString (dr. Get Study InstUID ( ) ) ) 

{ 

AndFilter ( "StudylD" , dr . GetStudylD ( ) ) ; 

AndFilter ( " Study ImagesNum" , dr . Get Study ImagesNum ( ) ) ; 

AndFilter ( " Access ionNumber" , dr . GetAccessionNumber ( ) ) ; 

AndFilter ( " StudyDate" , dr . GetStudyDate ( ) , DateTime : :DateFormat ) ; 

AndFilter ( "StudyTime" , dr . GetStudyTime ( ) , DateTime: :TimeFormat) ; 

} 

AndFilter (" [Series] . [SeriesInstUID] " , dr . GetSeriesInstUID ( ) ) ; 

if ( ! : : IsUniqueString (dr . Get Series InstUID ( ) ) ) 

{ 

AndFilter ( "Modality", dr . GetModal i ty () ) ; 
AndFilter ( "SeriesNum" , dr . GetSer iesNum ( ) ) ; 

} 

p AndFilter ( "SOPInstUID" , dr . Get SOP InstUID () ) ; 
Jl if ( ! : : IsUniqueString (dr. Get SOPInstUID ( ) ) ) 

AndFi 1 ter ( " ImageNum" , dr . Get ImageNum ( ) ) ; 
il AndFilter (" Filename" , dr . Get Fi leName ( ) ) ; 

y^i* **************************************************** 

"""ft i 

* Put data into DICOM record 

VpVSk- ************************************************** 

\giid 0DBC4Set : :WriteIntoDICOMRecord (DICOMRecord &dr) 

hi 

IJ": dr , SetRecord ( (char*) ( LPCSTR) m_Pat ient ID , (char*) ( LPCSTR)m_Pat ientName , 
""^ m_PBirthDate, m_PBirthTime , (char*) ( LPCSTR) m_Study InstUID , 

(char*) (LPCSTR) m_StudyID, (char*) ( LPCSTR) m_AccessionNumber , 
fh (char*) (LPCSTR) m_StudyImagesNum, m_StudyDate , m_StudyTime , 

(char*) (LPCSTR) m_SeriesInstUID, (char*) (LPCSTR) m_Modality , 
(char*) (LPCSTR)m_SeriesNum, (char*) ( LPCSTR) m_SOPInstUID , 
(char*) (LPCSTR) m_ImageNum, (char*) ( LPCSTR) m_Filename) ; 

} 
* 

* Make sure that several different records on one level 

* cannot share records on lower level 
* 

**************************************************** 

bool 0DBC4Set :: HasAliasRecords (DICOMRecord &dr) 

( 



Trim(dr .GetPatientlDO ) ; 
Trim(dr .GetStudylnstUID ( ) ) ; 
Trim(dr .GetSeriesInstUID ( ) ) ; 
Trim(dr. Get SOPInstUID 0 ) ; 



CString p= : 
CString st= 
CString sr= 
CString im= 
CString cons; 
cons . Format ( 

" AND ( ( [Patient] . [PatientID] <>' %s' AND [ Study] . [Study InstUID] =' %s ' ) OR 
"( [Study] . [StudylnstUID] <>• %s ' AND [Series] . [SeriesInstUID] =' %s ' ) OR " 
"( [Series] . [SeriesInstUID] <>' %s ' AND [ Image] . [SOPInstUID] = ' %s ' ) )", p, st 
st , sr , sr , im) ; 
m_strFilter = "[ Pat ient ]. [Patient ID] = [Study] . [Pat ient ID] AND " 

" [Study] . [StudylnstUID] = [Series] . [StudylnstUID] AND " 
" [Series] . [SeriesInstUID] - [Image] . [SeriesInstUID] " ; 
m strFilter += cons; 
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bool aliased 
TRY 



true ; 



Open ( ) ; 

aliased = ( I sEOF ( ) ==FALSE) 
Close 0 ; 

} 

CATCH (CExcept ion, e) 
{ 

#ifdef DEBUG 

e ->Report Error ( ) ; 
#endif 
} 

END_CATCH ; 
return aliased; 
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^if !def ined(AFX_QUERYRETRIE3^^_INCLUDED_} 
# de f i ne AFX_QUER YRETR I E VE_H_^BuDED_ 




#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// QueryRetrieve . h : header file 

// 

#include **dqrcontrol . h'* // Added by ClassView 
#include " . . \LogFi le . h" // Added by ClassView 

///////////////////////////////////////////////////////////////////////////// 
// QueryRetrieve dialog 

class QueryRetrieve : public CDialog 

{ 

// Construction 
publ ic : 

void SwitchAppearance { ) ; 

void DoModeless (CWnd* pParent=NULL) ; 

void OnBeginDrag(CListCtrl* pList, NMHDR* pNMHDR) ; 

bool InitializeQueryRetrieve (LogFile* ptrCl ientLog , 

LogFile* pt rServerLog , DICOMDatabase* ptrDB) ; 
QueryRetrieve (CWnd* pParent = NULL); // constructor 
-QueryRetrieve 0 ; // destructor 

// Dialog Data 

/ / { { AFX_DATA ( Que ryRe t r i e ve ) 

enum ( IDD = IDD_DIALOG_QUERY_RETRIEVE }; 
//] )AFX DATA 

/Jz, Overrides 

'^^ // ClassWizard generated virtual function overrides 
'"H // {{ AFX_VI RTUAL ( QueryRe t r ie ve ) 
dj protected: 

,jl virtual void DoDataExchange ( CDataExchange * pDX) ; // DDX/DDV support 

^: // } }afx_virtual 

4/ Implementation 
gi^o t e c t e d : 

^~ // Generated message map functions 

y //{ {AFX_MSG(QueryRetrieve) 

nj afx_msg void OnQueryRetrieve_AESetup ( ) ; 

v'l virtual BOOL OnlnitDialog ( ) ; 

_J afx_msg void OnParameter sPr ior ityHigh { ) ; 

afx_msg void OnParameter sPriorityLow () ; 
Tj afx_msg void OnParameter sPr ior ityNormal () ; 

afx_msg void OnUpdateParametersPriority (CCmdUI * pCmdUI); 

afx_msg void OnQueryRetr ieveCl ientLog ( ) ; 

afx_msg void OnQueryRetr ieveServerLog ( ) ; 

afx_msg void OnCloseO; 

virtual void OnOKO; 

afx_msg void OnUpdateQueryRetr ieveCl ientLog ( CCmdUI * pCmdUI ) ; 
afx_msg void OnUpdateQueryRetrieveServerLog ( CCmdUI * pCmdUI) ; 
afx_msg void OnQueryRetr ieveClearAl ILogs () ; 

afx_msg void OnMenuSelect ( UINT nItemID, UINT nFlags, HMENU hSysMenu) ; 
afx_msg void OnLBut tonUp (UINT nFlags, CPoint point); 
afx_msg void OnMouseMove (UINT nFlags, CPoint point); 
afx_msg void OnHide() ; 
afx_msg void OnExit(); 

afx_msg void OnAct ivate (UINT nState, CWnd* pWndOther, BOOL bMinimized) ; 
afx_msg void OnSysCommand ( UINT nID, LPARAM iParam) ; 
afx_msg void OnServicesShowRemoteTasks { ) ; 

afx_msg void OnUpdateServicesShowRemoteTasks ( CCmdUI * pCmdUI); 
afx_msg void OnServicesTaskScheduling ( ) ; 

afx_msg void OnUpdateServicesTaskScheduling (CCmdUI* pCmdUI ) ; 
// } )AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

bool qr_UpdateMenu; 
HWND qr_HWND; 

LogFile *qr_ptrClientLog , *qr_ptrServerLog ; 

Appli cat ionEntity List * qr_AEarray ; 
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DQRControl 
CWnd* 

ClmageList^ 

void 
void 
BOOL 

ClmageList^ 



QRCtrlRemote , qr_DQRCtr iLocal ; 
DragWnd; 
pDrag Image ; 



OnCancel ( ) ; 

UpdateMenu (CMenu* pMenu) ; 

UpdateData( BOOL bSaveAndValidate=TRUE) ; 

CreateDraglmageEx (CListCtrl *pList, LPPOINT IpPoint) 



// { { AFX_INSERT_LOCATION } } 

// Microsoft Visual C+-!- will insert additional declarations immediately before the previous line. 



#endif // ! defined {AFX_QUERYRETRIEVE_H_INCLUDED_) 
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// QueryRetrieve . cpp : imple 
// 

#include "stdafx.h" 
^include " . . \Resource . h" 
#include "QueryRetrieve . h" 
^include " AEOpt ions_Dialog , h" 



Sifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE_ 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// QueryRetrieve dialog 

QueryRetrieve :: QueryRetrieve (CWnd* pParent /*=NULL*/) 
: CDialog (QueryRetrieve :: IDD, pParent) 

{ 

// { (AFX_DATA_INIT (QueryRetrieve) 
// } }AFX_DATA_INIT 
qr_UpdateMenu=f al se ; 
qr_HWND = NULL; 
qr_AEarray = NULL; 
qr_pDrag Image = NULL; 
qr_pDragWnd = NULL; 

}0 

C^^eryRetrieve : : -QueryRetrieve ( ) 



vesid QueryRetrieve :: DoDataExchange (CDataExchange* pDX) 

'^^ CDialog: : DoDataExchange (pDX) ; 
fl j / / ( { AFX_D AT A_MAP ( Que ry Re t r i e ve ) 

/ / } }afx_data_map 

I 

—J 

BpGIN_MESSAGE_MAP (QueryRetrieve, CDialog) 
I'l // { (AFX_MSG_MAP (QueryRetrieve) 

™ ON_COMMAND ( I D_QUERYRETR I EVE_AES ETUO , OnQue ryRe t r i e ve_AESe t up ) 

Lj ON_COMMAND ( ID_PARAMETERS_PRIORITY_HIGH , OnParameter sPr ior i tyHigh) 

f 3 ON_COMMAND ( ID_PARAMETERS_PRIORITY_LOW , OnParame t er sPr ior i tyLow) 

~~ ON_COMMAND ( ID_PARAMETERS_PRIORI TY_NORMAL , OnParame ter s Prior i tyNormal) 

ON_UPDATE_COMMAND_UI {ID_PARAMETERS_PRIORI TY_HIGH , OnUpdat eParame t er sPr ior i ty ) 
ON_COMMAND ( ID_QUERYRETRIEVE_CLIENTLOG, OnQueryRe tr ieveCl ient Log ) 
ON_COMMAND ( ID_QUERYRETRIEVE_SERVERLOG, OnQueryRe trieveServerLog ) 
ON_WM_CLOSE 0 

0N_UPDATE_COMMAND_UI ( ID_QUERYRETRIEVE_CLIENTLOG, OnUpdateQueryRe t r ieveCl ientLog ) 
ON_UPDATE_COMMAND_UI ( ID_QUERYRETRIEVE_SERVERLOG, OnUpdateQueryRe trieveServerLog ) 
ON_COMMAND ( ID_QUERYRETRIEVE_CLEARALLLOGS , OnQueryRe trieveClearAl iLogs ) 
ON__WM_MENUSELECT ( ) 
ON_WM_LBUTTONUP ( ) 
ON_WM_MOUSEMOVE ( ) 
ON_WM_ACTIVATE ( ) 
ON_WM_SYSCOMMAND ( ) 

ON_COMMAND ( ID_SERVI CES_SHOWREMOTETASKS , OnServicesShowRemoteTasks ) 

ON_UPDATE_COMMAND_UI ( ID_SERVICES_SHOWREMOTETASKS , OnUpdat eServicesShowRemoteTaslcs ) 
ON_COMMAND ( ID_SERVICES_TASKSCHEDULING, OnServicesTaskSchedul ing) 
ON_UPDATE_COMMAND_UI ( ID_PARAMETERS_PRIORITY_LOW , OnUpdat eParametersPr ior i ty) 
ON_UPDATE_COMMAND_UI ( ID_PARAMETERS_PRIORITY_NORMAL , OnUpdat eParametersPr ior i ty) 
ON_UPDATE_COMMAND_UI ( ID^SERVI CES_TASKSCHEDULING , OnUpdat eServicesTaskSchedul ing ) 
//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// QueryRetrieve message handlers 

/*★***************************************★********************************* 
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* Alter Query/Retrieve modi 

********************************************************** 

void QueryRetrieve :: DoModeless (CWnd* pParent) 
{ 

if (GetSafeHwnd( ) ) 
{ 

ShowWindow(SW_SHOWNORMAL) ; 
return; 

) 

Create { IDD_DIALOG_QUERY_RETRIEVE , pParent ) ; 
ShowWindow(SW_SHOWNORMAL) ; 
qr_UpdateMenu= t rue ; 

) 

void QueryRetrieve : rOnClose ( ) { OnHide ( ) 
void QueryRetrieve : :OnOK ( ) { OnHide ( ) 

void QueryRetrieve : rOnCancel ( ) { OnHide ( ) 
void QueryRetrieve : lOnHide ( ) 

{ 

if(!qr_HWND) return; 
ShowWindow(SW_MINIMIZE) ; 

} 

void QueryRetrieve : rOnExit ( ) 
( 

if ( !qr_HWND) return; 

CString msg{"Do you want to terminate DICOM Query/Retrieve ?\n"); 

msg += CString("If Yes, you will have to restart DCM\n"); 

msg += CString("to enable Query/Retrieve again."); 
t% if( AfxMessageBox(msg, MB_ICONQUESTION | MB_YESNO) == IDNO ) return; 
^fi DestroyWindow ( ) ; 

'Si 

vjld QueryRetrieve: : Swit chAppearance ( ) 

if (GetSafeHwnd{ ) NULL) // Display 
4l DoModeless (AfxGetMainWnd( ) ) ; 

m } 

else // Maximize / Miinimize 

^ { 

if (Islconic ( ) ) ShowWindow ( SW_RESTORE) ; 

p else ShowWindow (SW_MINIMIZE) ; 

UpdateWindow ( ) ; // Make sure it redraws the window 

M ' 

verid QueryRetrieve : :OnSysCommand (UINT nID, LPARAM iParam) 

if(nID == SC_MAXIMIZE || nID == SC_ZOOM) ShowWindow ( SW_RESTORE) ; 

else CDialog : :OnSysCommand (nID, IParam); 
UpdateWindow () ; // Make sure it redraws the window 

} 

void QueryRetrieve : rOnActivate (UINT nState, CWnd* pWndOther, BOOL bMinimized) 

i 

CDialog : :OnActivate (nState , pWndOther, bMinimized); 
if(nState == WA_INACTIVE pWndOther==Af xGetMainWnd { ) ) 

ShowWindow(SW_MINIMI2E) ; 
UpdateWindow 0 ; // Make sure it redraws the window 

} 



* 

* Run AE setup 
* 

void QueryRetrieve: : OnQueryRetr ieve_AESetup ( ) 

( 

AEOpt ions_Dialog aeo_dialog; 

int n = aeo_dialog . DoModal (qr_AEarray) ; 

if (n>=0) 
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qr_DQRCtrlRemote . Loa 
qr_DQRCtrlLocal . Load 

} 
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•hiveList (n) ; 
liveList(n); 



/*******♦******************************************************************* 
* 

* Handle menu updates 
* 

*********** ******** *************************************************** 
void QueryRetrieve : lOnMenuSelect (UINT nItemID, UINT nFlags, HMENU hSysMenu) 
{ 

CDialog : :OnMenuSelect (nl temID, nFlags, hSysMenu) ; 
if (qr_UpdateMenu) UpdateMenu (GetMenu ( ) ) ; 
qr_UpdateMenu = false ; 

) 

void QueryRetrieve :: UpdateMenu (CMenu *pMenu) 
{ 

CCmdUI cmdUI; 

if (IpMenu) return; 

for (UINT n = 0; n < pMenu- >GetMenuI temCount ( ) ; ++n) 

{ 

CMenu* pSubMenu = pMenu- >GetSubMenu (n) ; 

if (pSubMenu) UpdateMenu (pSubMenu) ; // recursive call 

else 

{ 

cmdUI . m_nIndexMax = pMenu- >GetMenuI temCount ( ) ; 
for (UINT i = 0; i < cmdUI . m_nIndexMax ; ++i ) 

L,f cmdUI . m_nlndex = i; 

J% cmdUI.m_nID = pMenu- >GetMenuI temID ( i ) ; 

~l cmdUI . m_pMenu = pMenu; 

cmdUI.DoUpdate(this, FALSE); // call handler 



nj 

/*************************************************************************** 

i 

i=- Change priority 

tete; *************************************************************************/ 

^"t5id QueryRetrieve: :OnParametersPriorityHigh ( ) 

pi 

rj qr_DQRCtrlRemote . Set Priority (ServiceClass : : HighPriority) ; 
f'j qr_DQRCtrlLocal . SetPriority (ServiceClass : : HighPriority ) ; 

void QueryRetrieve: :OnParametersPr iorityLow ( ) 

{ 

qr_DQRCtrlRemote , SetPriority (ServiceClass : : LowPr ior i ty ) ; 
qr_DQRCtrlLocal . SetPriority (ServiceClass : : LowPriority) ; 

} 

void QueryRetrieve: : OnParameter sPr ior ityNormal ( ) 

{ 

qr_DQRCtrlRemote . SetPriority (ServiceClass : :NormalPriority) ; 
qr_DQRCtrlLocal . SetPriority (ServiceClass : :NormalPriority) ; 

} 

void QueryRetrieve :: OnUpdateParametersPriority (CCmdUI * pCmdUI) 
( 

BYTE pr; 

switch (pCmdUI - >m_nID) 
{ 

case ID_PARAMETERS_PRIORITY_HIGH: 
pr=ServiceClass : : HighPriority ; 
break; 

case ID_PARAMETERS_PRIORITY_NORMAL : 

pr^ServiceClass : : NormalPr ior i ty ; 

break; 
default : 

pr=ServiceClass : : LowPriority ; 

break; 
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pCmdUI->SetCheck(qr_DQRC 
qr_UpdateMenu=true ; 



l^^^emote .Get Prior ity ( ) = pr) ; 



/*************************************************************************** 
* 

* Start the dialog 
* 

***************************************************************************/ 
BOOL QueryRetrieve: : Onini tDialog ( ) 

{ 

CDialog: :OnInitDialog() ; 
qr_HWND=GetSafeHwnd() ; 
qr_UpdateMenu=true ; 

if ( !qr_DQRCtrlRemote.DisplayOverControl ( IDC_STATIC_REMOTE , this) ) 
return FALSE; 

if ( !qr_DQRCtrlLocal . Di splayOverControl ( IDC_STATIC_LOCAL , this) ) 
return FALSE; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

* 

* Set log files (client and server) 
* 

*********************************************************************/ 
bgbl QueryRetrieve: : Init ializeQueryRetrieve (LogPile* ptrClientLog , 
1^ LogFile* ptrServerLog , DICOMDatabase* ptrDB) 

// Set parameters 
J] if ( IptrClientLog || ! ptrServerLog || !ptrDB) 

SJ { 

Af xMessageBox ( "NULL parameters, cannot initialize Query/Retrieve"); 
return false; 

nl qr_ptrClientLog = ptrClientLog; 

qr_ptrServerLog = ptrServerLog; 
^ if(! qr_DQRCtrlRemote . CreateDQRControl (qr_ptrClientLog, ptrDB, false) || 
M ! qr_DQRCtrlLocal.CreateDQRControl ( qr_ptrClientLog , ptrDB, true) ) 

a { 

=3 return false; 

vi ) 

""^ qr_AEarray = £c ( ptrDB - >db_AEl i st ) ; 
p'^ return true ; 

g 

* 

* Show log windows 
* 

***************************************************************************/ 

void QueryRetrieve: : OnQueryRet r ieveCl ientLog () 

{ 

if ( !qr_ptrClientLog->IsOn ( ) ) qr_ptrCl ientLog- >DoModeless ( "Client Log" ) 
else qr_ptrClientLog- >DestroyWindow ( ) ; 

} 

void QueryRetrieve: : OnQueryRetr ieveServerLog ( ) 
{ 

if ( !qr_ptrServerLog->IsOn( ) ) qr_ptrServerLog- >DoModeless ( "Server Log" ) 

else qr_ptrServerLog->DestroyWindow {) ; 

} 

void QueryRetrieve: : OnUpdateQueryRetrieveCl ientLog (CCmdUI * pCmdUI) 
{ 

pCmdUI ->SetCheck: (qr_ptrCl ientLog- > I sOn{ ) ) ; 
qr_UpdateMenu=true ; 

} 

void QueryRetrieve: : OnUpdateQueryRetr ieveServerLog ( CCmdUI * pCmdUI) 

{ 

pCmdUI->SetCheck(qr_ptrServerLog->IsOn( ) ) ; 
qr_UpdateMenu=true ; 
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} 

void Query-Retrieve : :OnQueryRi 

{ 

qr_ptrClientLog->OnClear ( ) 
qr_ptrServerLog->OnClear ( ) 

} 



^^^^eveC lear All Logs ( } j^^^ 



/*********************■****************************************************** 
* 

* Thread-safe UpdateData 
* 

***************************************************************************/ 

BOOL Query-Retrieve :: UpdateData (BOOL bSaveAndValidate) 

{ 

if (qr_HWND) return FromHandle {qr_HWND) - >UpdateData (bSaveAndVal idate ) ; 
else return FALSE; 

} 



* 

* Drag and drop support 
* 

************************************************************************ 
CImageList* QueryRetr ieve :: CreateDraglmageEx (CListCtrl *pList, LPPOINT IpPoint) 

{ 

if (IpList II pList->GetSelectedCount ( ) <= 0) return NULL; //No row selected 

Q CRect rectSingle, rectComplete ( 0 , 0 , 0 , 0 ) ; 

^'z. I / Determine List Control Client width size 
pList->GetClientRect (rectSingle) ; 
int nWidth = rectSingle . Width {) ; 

f.^ If Start and Stop index in view area 

'"^f int nindex = pLi st - >GetTopIndex () - 1; 

int nBottomlndex = pList ->GetTopIndex ( ) + pList - >GetCountPerPage () - 1; 

nj if (nBottomlndex > (pList- >Get I temCount ( ) - 1)) 
y nBottomlndex = pList ->Get I temCount ( ) - 1; 

M // Determine the size of the drag image (limite for rows visibled and Client width) 

n while ((nindex = pLi st - >GetNext I tern ( nindex , LVNI SELECTED)) != -1) 

Si { 

:_\ if (nindex > nBottomlndex) 

~^ break; 

=^ pList->GetItemRect (nindex, rectSingle, LVIR_BOUNDS) ; 

if (rectSingle . left < 0) 
rectSingle . left = 0; 

if (rectSingle . right > nWidth) 
rectSingle . right = nWidth; 

rectComplete , UnionRect ( rectComplete , rectSingle) ; 

) 

// Minimize drag rectangle width to the size of the first column 
rectComplete . right = rectComplete . lef t +pLi st - >GetColumnWidth ( 0) ; 



CClientDC dcClient ( this) ; 
CDC dcMem; 
CBitmap Bitmap; 

if ( !dcMem.CreateCompatibleDC(&dcClient) ) 
return NULL; 

if ( ! Bitmap. CreateCompatibleBitmap (&dcCl lent , rectComplete . Width ( ) , rectComplete . Height ( ) ) ) 
return NULL; 

CBitmap *pOldMemDCBitmap = dcMem. SelectObj ect ( ScBitmap) ; 
// Use green as mask color 

dcMem. FillSolidRect (0 , 0, rectComplete . Width ( ) , rectComplete . Height () , RGB (0, 255, 0) ) ; 



5 



QueryRetrieve . cpp 



10/27/00 



>G2™extItem(nIndex, LVNI SELECTED)) 



// Paint each Draglmage 
nindex ~ pList->GetTopIn(r 

while ((nindex = pList ->GeTTJextItem (nindex, LVNI_SELECTED) ) !^^1) 



if (nindex > nBot tomlndex) 
break; 

CPoint pt; 

CImageList* pSinglelmageList = pList->CreateDragImage (nindex, Sept); 

if (pSinglelmageList) 
{ 

pList->GetItemRect (nindex, rectSingle, LVIR_BOUNDS) ; 
pSinglelmageList- >Draw ( ScdcMem, 

0, 

CPoint (rectSingle . left - rectComplete . lef t , 
rectSingle . top - rectComplete . top) , 

ILD_MASK) ; 
pSinglelmageList - >Delete ImageList ( ) ; 
delete pSinglelmageList; 

} 

} 

dcMem. SelectObject (pOldMemDCBi tmap) ; 
CImageList* pCompletelmageList = new CImageList; 

pCompleteImageList->Create(rectComplete.Width() , rectComplete . Height ( ) , ILC_COLOR | ILC_MASK, 
0, 1); 

pCompleteImageList->Add (&Bitmap, RGB ( 0 , 255, 0)); // Green is used as mask color 
Bitmap . DeleteObj ect 0 ; 

Jj if (IpPoint) 

lpPoint->x = rectComplete . left ; 
lpPoint->y = rectComplete . top ; 

} 

return pCompletelmageList; 
vxiid QueryRetrieve : :OnBeginDrag (CListCtrl *pList, NMHDR *pNMHDR) 

L 

if (IpList II pList ->GetSelectedCount ( ) <= 0) return; //No row selected 



nl NM_LISTVIEW* pNMListView = (NM_LI STVI EW* ) pNMHDR ; 
V] POINT pt; 

2: qr_pDragImage = CreateDraglmageEx (pLi st , Stpt) ; 
ri if (qr_pDrag Image == NULL) return; 
qr_pDragWnd = pList; 

CPoint ptStart = pNMLi stView- >ptAct ion ; 
ptStart pt; 

qr_pDragImage- >BeginDrag ( 0 , ptStart) ; 

qr_pDragImage- >DragEnter (GetDesktopWindow ( ) , pNMListView- >ptAct ion) ; 
SetCapture ( ) ; 

) 

void QueryRetrieve : lOnLButtonUp (UINT nFlags, CPoint point) 

( 

if (qr_pDrag Image && qr_pDragWnd) // In Drag&Drop mode ? 

( 

: : ReleaseCapture ( ) ; 

qr_pDragImage->DragLeave (GetDesktopWindow ( ) ) ; 
qr_pDrag Image - >EndDrag ( ) ; 



CPoint pt (point); 
ClientToScreen (&pt ) ; 

CWnd* pDropWnd = WindowFromPoint (pt ) ; 
qr_DQRCtrlLocal . DropOn (qr_pDragWnd, pDropWnd) ; 
qr_DQRCtrlRemote . DropOn (qr_pDragWnd, pDropWnd) ; 
qr_pDragImage->Delete ImageList ( ) ; 
delete qr_pDrag Image ; 
qr_pDragImage = NULL; 
qr_pDragWnd = NULL ; 
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CDialog: : OnLBut tonUp ( nFll 



point) ; 



} 

void QueryRetrieve : :OnMouseMove (UINT nFlags, CPoint point) 

{ 

if (qr_pDrag Image && qr_pDragWnd) // In Drag&Drop mode ? 

{ 

CPoint ptDropPoint (point ) ; 
ClientToScreen (fitptDropPoint ) ; 
qr_pDrag Image - >DragMove (ptDropPoint ) ; 

) 

CDialog: lOnMouseMove (nFlags , point) ; 

) 



/*************************************************************************** 
* 

* Displaying remote task queue and scheduling dialogs 
*■ 

*********************************************************************** 
void QueryRetrieve: :OnServicesShowRemoteTasks ( ) 

{ 

qr_DQRCtrlRemote . ShowTaskView ( ) ; 

UpdateWindow 0 ; // Make sure it redraws the window 

} 

void QueryRetrieve: :OnUpdateServicesShowRemoteTasks (CCmdUI* pCmdUI) 

{_ 

rl pCmdUI->Enable (qr DQRCtr iRemote . HasTaskQueue () ) ; 

vyid QueryRetrieve: : OnServicesTaskSchedul ing () 

^5 // Switch scheduling prompt 

'Jt qr_DQRCtrlRemote . SetTaskSchedulerPrompt ( 
^iJ ! qr_DQRCtrlRemote , GetTaskSchedulerPrompt () ) ; 

Jj qr_UpdateMenu = true; 

vhid QueryRetrieve: :OnUpdateServicesTaskScheduling (CCmdUI* pCmdUI) 
P'-. pCmdUI - >SetCheck (qr_DQRCtrlRemote . GetTaskSchedulerPrompt 0 ) ; 

ly 
Cj 
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:l^^^rver class. 

i^iiiiiiiii/iiiiifiiiiiiiniiii/iii^mi 



1/ Server. h: interface for 
// 

/////////////////////////////777/////////////////////////////////7T7// 



# i f ! def ined (_SERVER_H_INCLUDED_) 
#define _SERVER_H_INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 
class Server 

{ 

public : 

bool RunServer (Applicat ionEnt ity* a, bool multithread) ; 

Server (DICOMDatabase* db, DICOMViewLog* log) ; 
virtual -Server {) ; 
private : 

UINT16 srv__CancelledID; 
DICOMViewLog* srv_pLog ; 
DICOMDatabase* srv_pDataBase ; 
struct Thread 
{ 

char tr_LocAET [20] , tr_RemAET [ 20] ; 

UINT16* tr_ptrCancelledID; 

int tr_socket, t r_ServPort ; 

static int tr_Count; 

DICOMViewLog* tr_pLog; 

DICOMDatabase* tr_pDataBase ; 

void StartThread (char* locAET, char* remAET, bool multithread) 

^= static void Start Func {void *pThread) ; 

^ij bool RunThreadO; 

-. 3 Thread (DICOMDatabase* db, DICOMViewLog* log, int socket fd) ; 

-Thread () { tr_Count--; }; 

W }; 

bool RunServer ( char* port, char* locAET, char* remAET , bool multithread); 

W 

tl^dif // !defined( SERVER H INCLUDED ) 
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// Server. cpp: implementat i 
// 

/////////////////////////// 

^include "stdafx.h" 
i^include "Server, h" 
^include <process.h> 



#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE_ 

tide fine new DEBUG_NEW 
ttendif 



Server. cpp 10/27/00 
Q^^l the Server class. 

im 1 1 / 1 1 1 1 1 1 / 1 1 1 1 1 J 1 1 / 1 1 1 1 / 1 1 1 1 1 1 1 1 Ml f 1 1 / 



/iiii/i/iii/iniiii/i//ii/niiii//iiini/iiiiiifiifiii/ii//iiiiiiiii// 

// Server Class 

////////////////////////////////////////////////////////////////////// 
Server :: Server (DICOMDatabase* db, DICOMViewLog* log) 

{ 

srv_pDataBase=db; srv_pLog=log ; srv_CancelledID=0; 

) 

Server :: -Server ( ) {} 



Server : :Thread: :Thread(DICOMDatabase* db, DICOMViewLog* log, int socketfd) 
: tr_pDataBase (db) , tr_pLog ( log) , tr_socket ( socketfd) 

{_ 

ri tr_Count++; 

.11 ZeroMem( tr_LocAET, 2 0) ; ZeroMem ( tr_RemAET , 20 ) ; 
2: tr ServPort=0; 

n ~ 

irfl Server :: Thread :: tr_Count = 0; 

* "i 

start Server, listening to a specific port 

*pcf***ic***irir*ir**if if **ir**ie **** if ************ ********** 

b'Shl Server : :RunServer (char* port, char* locAET, char* remAET, bool multithread) 

(f 

j== // Do we have valid class members ? 
Pj if ( ! srv_pDataBase || !srv_pLog) return false; 
if (! port II tlocAET || IremAET) 

Vi { 

~H srv_pLog->Load( "Server ERROR: NULL parameter"); 

r1 return false; 

fl } 

~^ char sport [8] ; sprintf ( sport %s port ) ; 

// Can we listen to the given port ? 

char info [64 ] ; . 

Socket MSocket; 

if ( ! MSocket . Li s ten { sport ) ) 

{ 

sprintf ( info, " Server ERROR: cannot listen to port %s", sport); 
srv_pLog->Load(info) ; 
return false; 

} 

sprintf ( info, " Server listens to port %s", sport); 
srv_pLog->Load ( inf o) ; 

// Run single or multithread server 
while (MSocket . Accept ( ) ) 

{ 

// Set server thread parameters 

Thread* trd = new Thread ( srv_pDataBase , srv_pLog, MSocket , Socketfd) ; 

if ( ! trd) 

{ 

srv_pLog- >Load (" Server ERROR: Out of memory for new thread"); 
return false; 

} 

trd->tr_ServPort = atoi (sport); 
trd->tr_ptrCancelledID = &srv_CancelledID; 
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r^^^This function will delete the t^^^^H 
1 ^^Hver use ''thr" any more ! 
DcAff^ remAET, mult i thread) ; 



} 



// Start server thr^^^This function will delete the tl^^^ "trd" 
// after completion 

trd->StartThread ( locA^TT, remAET, multithread) ; 
MSocket . Socket fd = 0; 
MSocket . Connected = FALSE; 

) 

sprintf (info, "Server failed to accept more data at port %s", sport) 
srv_pLog- >Load ( inf o) ; 

return false; // should never return except on error 



bool Server : :RunServer (ApplicationEntity* a, bool multithread) 

{ 

if(!a) return false; 

return RunServer (a- >GetPort ServerStr ing ( ) , a- >ae_partnerTit le , 
a->ae_Title, multithread) ; 

} 

/*********★*****■*****************************★********************** 
* 

* Start a thread, if possible 
* 

void Server : rThread: :StartThread(char* locAET, char* remAET, bool multithread) 
{ 

strcpy (tr_LocAET, locAET) ; 
strcpy (tr_RemAET, remAET) ; 
if (multithread) 
{ 

if (_beginthread(StartFunc, 100000, this) == -1) 
try 

^ { 

y= tr_pLog->Load (" Server WARNING: cannot start a new thread"); 

J% RunThreadO; // just try to run 

} 

catch (...) { ; } 
else RunThreadO; 

r 

JUl* ***************************************************************** 
Run a thread, wrapped in C syntax 

i\l 

izj^* ****************************************************************/ 
v=Qid Server :: Thread :: StartFunc (void *pThread) 

=J if(!pThread) return; // cannot be NULL 

( (Thread*) pThread) - >RunThread ( ) ; 
_endthread ( ) ; 

} 

********************** *********************** ************* 

* 

* Run and DELETES a thread 
* 

*******************************************************************/ 
bool Server : : Thread : : RunThread { ) 

{ 

if ( ! tr_pDataBase || ! tr_pLog) 

{ 

delete this; 
return false; 

) 

char info [64] ; 

PDU_Service PDU; 
DICOMCommandObject DCO; 
UID uid; 

SCProvider SCP ( *tr_pLog, *tr_pDataBase) ; 



// Configure PDU 

PDU. ClearAbstractSyntaxs ( ) ; 

PDU. SetLocalAddress ( (BYTE*) tr_LocAET) ; 
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BY^^tr_RemAET) ; 

. 3^H. I'M ; PDU. SetApplicationCc^UPt 



PDU. SetRemoteAddress ( (B^ 

uid.Set ("1.2.840. 10008.3^^. 1") ; PDU. SetApplicat ionCc^^pt (uid) ; 

PDU. Adds tandardStoreAbs tract Syntaxes ( ) ; 



// NOTE: PDU.Multiplex{f iledes) . This call is saying, here's a just 
// connected socket, now go through the regular PDU association, and 
// return to me a connected DICOM link. 

if (PDU.Multiplex(tr_socket) ) 
{ 

while (TRUE) 
{ 

tr_pLog- >ReportTime 0 ; 
DCO. Reset () ; 
if ( ! PDU. Read (&DCO) ) 
{ 

PDU. Close 0 ; 
delete this; 
return false; 

} 

sprintf (info, "Server object received at port %d : " , tr_ServPort ) ; 
tr_pLog- >Load ( inf o) ; 
tr_pLog-> Load (DCO) ; 
BeepOOO, 100) ; 

if ( ! SCP. IdentifyAndProcess (PDU, DCO, tr_ptrCancel ledID) ) break; 
} // while 
} // if 
else 

{ 

switch ( ( (AAssociateRJ) PDU) . Reason) 

{ 

case 3 : 

tr_pLog- >Load (" Server ERROR: Rejected remote AE address"); 
break; 
case 7 : 

tr_pLog- >Load (" Server ERROR: Rejected local AE address"); 
break; 
case 2 : 

tr_pLog- >Load (" Server ERROR: Rejected proposed Application Context"); 
break; 
default : 

tr_pLog- >Load (" Server ERROR: Reason unknown"); 

} 

PDU.CloseO ; 
delete this; 
return false; 

u ) 

// We get here on success 
'^^ PDU.CloseO 
delete this 
return true 



= H 
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i<^^id implementation of the Accurat^^^^i 



// AccurateTimer . h : interf at^^^id implementation of the Accurat^^^^r class. 
// 

/////////////////////////////T?'////////////////////////////////////////////////// 

$f include "stdafx.h" 
# include "DCM.h" 

//#ifdef _DEBUG 
//#undef THIS_FILE 

//static char THIS_FILE[]= FILE ; 

//#define new DEBUG_NEW 
//#endif 

class AccurateTimer 

{ 

private : 

int Initialized; 

int 6 4 Frequency ; 

int64 BeginTime; 

public : AccurateTimer ( ) // constructor 

{ 

// get the frequency of the counter 

Initialized = QueryPerf ormanceFrequency { (LARGE_INTEGER *)&Frequency ); 

} 

BOOL BeginO // start timing 

( 

if ( ! Initialized ) return 0; // error - couldn't get frequency 
// get the starting counter value 
ifl return QueryPerf ormanceCounter ( ( LARGE_ INTEGER *)&BeginTime ); 

m ) 

double End() // stop timing and get elapsed time in seconds 

-J { 

if( ! Initialized ) return 0.0; // error - couldn't get frequency 
I / get the ending counter value 
_int64 endtime; 

OJ QueryPerf ormanceCounter ( ( LARGE_ INTEGER *)&endtime ); 

^ // determine the elapsed counts 

^. int64 elapsed = endtime - BeginTime; 

^ / / convert counts to time in seconds and return it 

Ci return ( double ) elapsed / (double ) Frequency ; 
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void EndReport ( ) // stop timing and get elapsed time in seconds 

{ 

double t=End ( ) ; 

CString time; t ime . Format (" Time=%lf seconds", t); 
Af xMessageBox ( t ime) ; 



BOOL Available () // returns true if the perf counter is available 
{ return Initialized; } 

int64 GetFreqO // return perf counter frequency as large int 

{ return Frequency; } 
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// Angle. h: interface for tl^^wigle class. 

////////////////////////////^7/////////////////////////////////////// 



#if ! defined (AFX_ANGLE_H 0AD1D02 3_EE3 5_11D2_96 3D_00105A21774F INCLUDED_) 

^*def ine AFX_ANGLE_H 0AD1D0 23_EE3 5_1 1D2_963D_00105A21774 F INCLUDED_ 

^it _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

///////////////////////////////////////////////////////////////////////////// 
// Angle command target 

class Angle 

{ 

publ ic : 

bool a_undo, a_active; 

void UpdatePopMenu (CMenu* pop); 
void SetScale(int code) ; 

void Redraw(CDC* pDC, CPoint &p , bool initiali2e=f alse) ; 
void Draw (CDC* pDC) ; 
CString toString(); 
Ang 1 e ( ) ; 

virtual -Angle (); 



private : 

double a_angle, a_scale_coef f ; 
ifj CPoint a_pl , a_p2 , a_p3 ; 
f^l CString a_scale; 

J3 

S.l void Clean ( ) ; 

void GetAngleO; 

m 

m////// ///////////////////////////////////////////////////////// /////////// 

fendif // [defined {AFX_ANGLE_H OAD1D023_EE35_11D2_963D_00105A21774F^ INCLUDED 
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// Angle, cpp: implementat ioi^^^ the Angle class. 

w 

////////////////////////////////////////////////////////////////////// 

^include "stdafx.h" 
S include '*DCM.h'* 
tJinclude "Angle, h" 

iJifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG_NEW 
Sendif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
Angle : : Angle ( ) 

{ 

Clean () ; 

} 

Angle : : -Angle ( ) 

{ 



*J5 Report current angle in the status bar 
CSString Angle :: toString ( ) 

M 

est ring info; 

info. Format ("%.2lf ,a_angle) ; 
'^^ return (info+a scale) ; 

m 



Compute current angle 



**********************************************************************/ 
S§id Angle :: Get Angle ( ) 

$3 

a_angle=0 . 0 ; 



double x=_hypot (a_pl . x-a_p2 . x, a_pl ,y-a_p2 .y) 

double y=_hypot (a_p3 . x-a_p2 . x, a_p3 . y-a_p2 .y) 

double z=_hypot (a_pl . x-a_p3 . x , a_pl . y-a_p3 . y) 

double cosa= {x*x+y*y-2*2 ) / ( 2*x*y) ; 

if (cosa>0 .999) a_angle=3 . 1415926 ; 

else if (cosa<-0. 999) a_angle=3 . 14 15926 ; 

else a_angle=acos { cosa) ; 

a_angle *= a_scale_coef f ; 

return; 



if (x<=0 . 1 ) return ; 
if(y<=0.1) return; 
if(z<=0.1) return; 



y^^^**^**^*******^** *************************************** ********* 
* 

* Reset all Angle parameters 
* 

*************************************************************************/ 

void Angle :: Clean ( ) 

{ 

a_pl=:CPoint (20,30) ; 
a_p2=CPoint (50 , 50) ; 
a_p3=CPoint (20, 70) ; 
a_scale=CString ( "degrees" ) ; 
a_scale_coeff =180/3 . 1415926; 
Get Angle ( ) ; 
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a_active=f alse; 
a undo= false ; 



/*********************************•★****** + ****■**************************** 
* 

* Draw the Angle 
* 

*******************************★*****************************************/ 

void Angle :: Draw (CDC *pDC) 

{ 

int dmode=SetR0P2 {pDC->m_hDC, R2_N0T) ; 

CPen* old_pen = pDC- >SelectObj ect (&theApp . app_Pen) ; 

// Draw Angle lines 

pDC->MoveTo(a_pl) ; pDC- >LineTo (a_p2 ) ; 
pDC->MoveTo(a_p2) ; pDC- >LineTo ( a_p3 ) ; 
// Circle the Angle points 

pDC- >Arc (CRect (a_pl . x - 6 , a_pl .y-S , a_pl . x + 6 , a_pl . y+6 ) , a_pl , a_pl ) 

pDC- >Arc ( CRect (a_p2 . x -6 , a_p2 . y-6 , a_p2 . x+6 , a_p2 , y+6 ) , a_p2 , a_p2 ) 

pDC- >Arc ( CRect (a_p2 . x- 4 , a_p2 . y-4 , a_p2 . x+4 , a_p2 . y+4 ) , a_p2 , a_p2 ) 

pDC->Arc (CRect (a_p3 . x-6 , a_p3 .y-S , a_p3 . x+6 , a_p3 .y+6) , a_p3 , a_p3 ) 

SetR0P2 (pDC->m_hDC , dmode) ; 
pDC- >SelectObj ect (old_pen) ; 



4J= Update the Angle 

vcJid Angle :: Redraw (CDC *pDC, CPoint &p , bool initialize) 

^? 

%il if ( ! a_act ive) return; 

// Initialize angle points 
^ if ( initialize) 

f=% if(a_undo) Draw(pDC); 

Z"; int px= (p. x<<l) -10 ; int py= (p . y< < 1 ) - 10 ; 

'-'^ if (a_pl . x>px) a_pl.x = px; if { a_pl . y>py ) a_pl.y=py; 

if (a_p3 . x>px) a_p3.x = px; if ( a__p3 . y>py ) a_p3.y=py; 

ri a_p2=:p; 

Zl Draw(pDC) ; // new Angle 

GetAngle ( ) ; 
a_undo=true ; 
return ; 

} 

// Find which Angle vertex is closer 
double xl=_hypot (p.x-a_pl .x,p.y-a_pl .y) ; 
double x2=_hypot (p,x-a_p2 .x,p.y-a_p2 .y) ; 
double x3=_hypot {p.x-a_p3 .x,p.y-a_p3 .y) ; 

// Update the nearest vertex 
if(xl<=x2 && xl<=x3) 

{ 

if(x2<=10 II x3<=10) return; // avoid degraded Angle 

if(a_undo) Draw(pDC); 

a_pl=p; 

} 

else if(x2<=xl && x2<=x3) 

{ 

if(xl<=10 II x3<=10) return; // avoid degraded Angle 

if(a_undo) Draw(pDC); 

a_p2=p; 

} 

else 

{ 

if(xl<=10 II x2<=10) return; // avoid degraded Angle 
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i f ( a_undo ) Draw ( pDC 
a_p3=p; 




Draw(pDC) ; // new Angle 
Get Angle ( ) ; 
a_undo=true 

} 



* Update Angle scale 
* 

void Angle :: SetScale ( int code) 



switch ( code) 



case 1: 

a_scale="degrees" ; 

a_scale_coeff =180/3 . 1415926 ; 

break; 
case 2: 

a_scale= " radians " ; 

a_scale_coef f = 1 . 0 ; 

break; 
r\ case 3 : 

II a_scale= " percent " ; 

a_scale_coef f =50 .0/3. 14 15926; 
Ol break; 

r 

as 
Hi 



Update Angle pop-up menu 



f 

Ci 



d Angle :: UpdatePopMenu (CMenu *pop) 
Get Angle { ) 



if (a_scale=="degrees" ) pop- >CheckMenuI tern (ID_ANGLE_DEGREES , MF_CHECKED ) ; 
else if (a_scale=="radians" ) pop- >CheckMenuI tern ( ID_ANGLE_RADIANS , MF_CHECKED ) 
else pop- >CheckMenuI tern (ID_ANGLE_PERCENT,MF_CHECKED ); 

pop->ModifyMenu( ID_ANGLE_VALUE,MF_BYCOMMAND, ID_ANGLE_VALUE , toS t r ing ( ) ) ; 
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// CustomFileDialog . h : hea 
// 

///////////////////////////////////////////////////////////////////////////// 
// CCustomFileDialog dialog 
^include "resource. h" 

^define CUSTOM_FILEOPENORD 1538 
^define CUSTOM MULTI FILEOPENORD 1539 



class CCustomFileDialog : public CFileDialog 

{ 

DECL ARE_DYNAM I C ( CCu s t omF i 1 eD i a 1 og ) 
publ ic : 

TCHAR m_szBigBuf f er [1000] ; 

static CString szCustomDef Filter ; 

static CString szCustomDef Ext ; 

static CString szCustomDef Fi leName ; 

static CString szCustomTi t le ; 

CStringList m_listDisplayNames ; 

void SetTitle (CString title); 

int GetSelectedCount ( ) ( return m_listDisplaYNames . GetCount ( ) ; } 

CString GetSelectedAt (UINT index); 

CCustomFileDialog (BOOL bOpenFi leDialog = TRUE, // TRUE for FileOpen, FALSE for FileSaveAs 

DWORD dwFlags = OFN_HIDEREADONLY | OFN_OVERWRI TEPROMPT | OFN_NODEREFERENCELINKS | OFN_EXPL 

ORER I 

Q OFN_ENABLETEMPLATE | OFN__ALLOWMULT I SELECT | OFN_F ILEMUSTEX I ST , 

i-r^ LPCTSTR IpszFilter = CCustomFi leDialog :: szCustomDef Fi Iter , 

LPCTSTR IpszDefExt = CCustomFi leDialog :: szCustomDef Ext , 

LPCTSTR IpszFileName ^ CCustomFi leDialog :: szCustomDef Fi leName , 
■Ji CWnd* pParentWnd = NULL) ; 

/j/J Dialog Data 

/ /{{ AFX_D AT A ( CCu s t omF ileDialog) 
Jj enum ( IDD = IDD_CUSTOM_FILE_DIALOG }; 
=1J BOOL m_bMulti; 

BOOL m_SelectSubdirectories ; 

: //}}AFX_DATA 

O Overrides 

=~= // ClassWizard generated virtual function overrides 
/ / { {AFX__VIRTUAL (CCustomFileDialog) 
protected: 

□ virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

fl / /} }afx_virtual 

virtual BOOL OnFileNameOK () ; 

// Implementation 
protected : 

BOOL ReadListViewNames 0 ; // protected -> not callable without dialog up 

//{ (AFX_MSG(CCustomFileDialog) 
afx_msg void OnSelectBut ton ( ) ; 

afx_msg void OnContextMenu (CWnd* pWnd, CPoint point) ; 
virtual BOOL Onini tDialog { ) ; 
// } }AFX_MSG 

afx_msg void OnHelpO; 
DECLARE MESSAGE MAP ( ) 
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switch {m_FromIndex) 

{ 

case 0: // now 

m_StartTime = CTime : : GetCurrentTime { ) ; 

break; 
case 1 : // in 10 min 

m_StartTime = CTime :: GetCurrentTime ( ) + CTimeSpan ( 0 , 0 , 10 , 0 ) ; 

break; 
case 2: // in 30 min 

m_StartTime = CTime :: GetCurrentTime () + CTimeSpan ( 0 , 0 , 3 0 , 0 ) ; 

break; 
case 3 : // in 1 hour 

m_StartTime = CTime :: GetCurrentTime { ) + CTimeSpan ( 0 , 1 , 0 , 0 ) ; 

break; 
case 4 : // in 2 hours 

m_StartTime = CTime :: GetCurrentTime { ) + CTimeSpan ( 0 , 2 , 0 , 0 ) ; 

break ; 

case 5: // tomorrow 8:00 am 

tm = CTime :: GetCurrentTime ( ) + CTimeSpan ( 1 , 0 , 0 , 0 ) ; 
m_StartTime = CTime ( tm . GetYear () , tm . GetMonth () , tm.GetDayO, 

8,0,0) ; 

break ; 
case 6: // specific 

tm = m_StartTime; 

m_StartTime - CTime (m_StartDate . Get Year () , m_StartDate . Ge tMonth ( ) 

m_StartDate . GetDay ( ) , tm.GetHourO , 
tm. GetMinute ( ) , tm. GetSecond ( ) ); 

if (m_StartTime < CTime :: GetCurrentTime {) ) 

{ 

r% m_StartTime = CTime : :GetCurrentTime () ; 



y s 



CJ 



break; 

} 

// 2. Find out end date/time 
switch (m_ToIndex) 

{ 

case 0: // undefined 

m_EndTime = CTime ( 203 0 , 1 , 1 , 1 , 1 , 1 ) ; 
break; 
case 1: // in 10 min 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 0 , 1 0 , 0 ) ; 
break; 
case 2: // in 30 min 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 0 , 3 0 , 0 ) ; 
break; 

S.l case 3: // in 1 hour 

f=^ m_EndTime = m_StartTime + CTimeSpan ( 0 , 1 , 0 , 0 ) ; 

51 break; 

case 4 : // in 2 hours 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 2 , 0 , 0 ) ; 

break; 

case 5: // tomorrow 8:00 am 

tm = CTime : :GetCurrentTime ( ) + CTimeSpan { 1 , 0 , 0 , 0 ) ; 
m_EndTime = CTime ( tm. GetYear () , tm , GetMonth ( ) , tm.GetDayO, 

8,0,0) ; 

if {m_EndTime <= m_StartTime ) 

{ 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 0 , 3 0 , 0 ) ; 

} 

break ; 
case 6: // specific 

tm = m_EndTime; 

m_EndTime = CTime (m_EndDate . GetYear () , m_EndDate . GetMonth ( ) , 
m_EndDate . GetDay 0 , tm.GetHourO , 
tm. GetMinute () , tm . GetSecond ( ) ); 

if(m_EndTime <= m_StartTime ) 

{ 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 0 , 30 , 0 ) ; 

) 

break; 

) 

// 3, Set task schedule 
DateTime dstart , dend; 
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} 



dstart . SetDateTime (m_Sta^^kme . GetYear ( ) , m_StartTime . GetMoi^^B - 1 , 

m_StartTime . GetDay ( )^BBm_S tart Time . GetHour ( ) , m_StartT^^PGetMinute ( ) 

m_S tart Time .GetSecondTT) ; 
if (m_FromIndex>0) 

{ 

dend . SetDateTime (m_EndTime . GetYear ( ) , m_EndTime . GetMonth ( ) - 1 , 

m_EndTime . GetDay ( ) - 1 , m_EndTime . GetHour ( ) , m_EndTime . GetMinute ( ) , 
m_EndTime . GetSecond ( ) ) ; 

} 

t . ScheduleTask (dstart , dend) ; 

// 4. Set number of execution attempts 
t . SetExec (m_Attempts) ; 



* Display schedule dialog and schedule the task 

void DQRTaskSchedule : : RunScheduler (DQRTask &t, bool prompt) 

{ 

if (prompt) 

{ 

if(DoModal() != IDOK) return; 

} 

ScheduleTask (t) ; 

} 

Six. 

U 
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// ODBCh: interface for th^^^BC class. 

w 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 / 1 1 1 1 1 1 1 1 mi / 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 // 1 1 1 n 



*tif ! defined {AFX_ODBC_H_INCLUDED_) 
^define AFX_ODBC_H_INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

///////////////////////////////////////////////////////////////////////////// 
// 

// ODBCTableSet recordset - abstract parent for all ODBCRecordSet s 
// 

///////////////////////////////////////////////////////////////////////////// 
class ODBCTableSet : public CRecordset 

{ 

public : 

void WritelntoDICOMObject (DICOMObject& dob, 

DICOMObject* dob_mask=NULL) ; 
virtual void WritelntoDICOMRecord (DICOMRecord& dr)=0; 
virtual void Set FindFi 1 ter ( DICOMRecord& dr)=0; 
bool FetchNextRecord ( ) ; 

bool AddOrUpdate (DICOMRecord &dr) ; 

virtual CString GetFilename { ) { return CStringC'"); }; 
ODBCTableSet (CDatabase* pDatabase ^ NULL) ; 
-ODBCTableSet () ; 
DECLARE_DYNAMIC (ODBCTableSet) 

X^, Implementation 
igjfdef _DEBUG 

virtual void AssertValidO const; 
^ij virtual void Dump (CDumpCon text & dc) const; 
^•ndif 

^otected : 

void AndFilter (CString f Name , DateTimeSegment & dValue, 

nj const BYTE dFormat) ; 

void AndFilter (CString f Name , char* sValue) ; 

f_ virtual void ClearSet()=0; 

virtual void UpdateFromDICOMRecord (DICOMRecord &dr)=0; 
r] virtual bool Set FromDICOMRecord (DICOMRecord &dr)=0; 
S's CString GetDef aultConnect ( ) ; 

virtual CString GetDef aultQuery (DICOMRecord^ dr)=0; 

>^ 

Til 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

fi 

77 0DBC4Set recordset 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

class 0DBC4Set : public ODBCTableSet 
{ 

public : 

void WritelntoDICOMRecord (DICOMRecord& dr) ; 

bool HasAliasRecords (DICOMRecord^ dr) ; 

CString GetFi lename ( ) ( return m_Filename; }; 

0DBC4Set (CDatabase* pDatabase = NULL); 
DECLARE_DYNAM I C ( 0DBC4 Set) 

// Field/Param Data 

// { (AFX_FIELD (0DBC4Set , CRecordset) 

CString m_Ser ies InstUID ; 

CString m_S0PInstUID ; 

CString m_ImageNum; 

CString m_Fi lename; 

CString m_PatientID; 

CString m_Pat ientName ; 

double m_PBirthTime ; 

long m_PBirthDate ; 

CString m_StudyInstUID ; 

CString m_Ser ies InstUID2 ; 

CString m_Modality; 
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CString m_SeriesNum; 
CString m_Pat ient ID2 ; 
CString m_Study InstUID2 ; 
CString m_StudyID; 
CString m_AccessionNumber 
double m_StudyTime; 
long m_StudyDate ; 
CString m_Study ImagesNum; 
// } }AFX_FIELD 



// Overrides 

// ClassWizard generated virtual function overrides 
/ / ( { AFX_VIRTUAL ( 0DBC4 Set ) 
publ ic : 

virtual CString GetDef aul t SQL ( ) ; // Default SQL for Recordset 
virtual void DoFieldExchange ( CFieldExchange* pFX) ; // RFX support 
// } }AFX_VIRTUAL 



// Implementation 
#ifdef _DEBUG 
#endif 
private : 

void 

void 

void 

bool 

CString 



ClearSet ( ) ; 

SetFindFilter (DICOMRecord& dr) ; 
UpdateFromDICOMRecord (DICOMRecord &dr) 
SetFromDICOMRecord (DICOMRecord &dr) 
GetDef aultQuery {DICOMRecordSc dr) ; 



; } ; // not used 

return true; } ; // not used 



otess ODBCDatabase : public DICOMDatabase 

py^ 



lie: 

static const CString 



db DBName; 



11 void 

'^^ void 

jU void 

_ bool 

bool 
Q bool 
f|i bool 

bool 
2f BYTE 

f\ BYTE 
""^ int 
int 

CDatabase* 
ODBCDatabase ( ) ; 
virtual -ODBCDatabase () ; 



RemoveAllRecords ( ) ; 
StopSearch(void* pTR) ; 

DisplayRecords (Array<DICOMRecord> &a , bool from_local); 
InitializeDataBase ( char* directory, 

void ( *disp) {Array<DICOMRecord>& , bool) 
DBAdd(DICOMRecord& dr) ; 

DBAdd (DICOMObject* dob, PDU_Service* pdu) ; 
GetFromLocal (DICOMDataObj ect& ddo_mask) ; 

SetRecordCount ( int c) { return true; }; // unused 

MatchNext (void* pTR, DICOMObject &dob_found, 

DICOMObject *dob_mask) ; 
RetrieveNext ( void* pTR, DICOMObject^ dob_f ound) ; 
DBRemove (DICOMRecordSc dr_mask) ; 

GetRecordCount ( ) { return 1; }; // unused 

GetCDatabasePtr ( ) { return &db ODBCdb; }; 



protected : 
void* 
bool 

int 



StartSearch (DICOMRecord& dr_mask:, const BYTE how); 
DBAddDirectoryContent s (char* directory , bool copy_files, 

bool include_subdirector ies=true) ; 
DBRemoveDirectoryContents (char *directory, bool use_f i lenames , 

bool include subdirector ies= true ) ; 



private : 
bool 



db_IsODBC; 
CDatabase db_ODBCdb; 
CCritical Sect ion 

db_DBAddDDO_Crit icalSect ion, db_DisplayRecords_Cr i t icalSect ion ; 



}; 



bool 
bool 



RemoveUnique (CStringSt pKey, CString& stKey, 
CStringfic serKey, CString& imKey) 

Connect ( ) ; 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
II 
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imi 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L 



II ODBCPatientSet recordset 

// _ 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 iTTfl 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
class ODBCPatientSet : public ODBCTableSet 

{ 

public : 

void WritelntoDICOMRecord (DICOMRecordSc dr) ; 

void SetFindFilter (DICOMRecord& dr) ; 

ODBCPatientSet (CDatabase* pDatabase = NULL); 
DECLARE_DYNAMIC (ODBCPatientSet) 

// Field/Param Data 

//{ {AFX_FI ELD (ODBCPatientSet , CRecordset) 
CString m_Patient ID; 
CString m_Pat ientName ; 
double m_PBirthTime ; 
long m_PBirthDate ; 
//} }AFX_FIELD 



/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (ODBCPatientSet) 
public : 

virtual CString GetDef aul t SQL ( ) ; // Default SQL for Recordset 
virtual void DoFieldExchange (CFieldExchange* pFX) ; // RFX support 
//} }AFX_VIRTUAL 

IJ Implementation 
^ivate : 

i|j void ClearSetO; 

2^ void UpdateFromDICOMRecord (DICOMRecord& dr) ; 

4: bool SetFromDICOMRecord(DICOMRecord &dr) ; 

CString GetDef aultQuery (DICOMRecord& dr) ; 

u 

'Ml 1 1 n 1 1 1 1 1 1 f f f 1/ 1 1 N 1 1 1 / 1 1 1 1 1 / 1 1 1 1 / f 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 ^ 
m 

'II ODBCStudySet recordset 

f^iiiiiiiiiniiii/i/iinni/iii/iiii/iii/ffiiifiiiifiiiiiiii/fifffifiiin 

rjass ODBCStudySet : public ODBCTableSet 
public : 

"■=1 void WriteIntoDICOMRecord(DICOMRecord& dr) ; 

O void SetFindFilter (DICOMRecord &dr) ; 

ODBCStudySet (CDatabase* pDatabase = NULL); 

DECLARE_DyNAMIC (ODBCStudySet) 

// Field/Param Data 

// { { AFX_FIELD (ODBCStudySet , CRecordset ) 

CString m_PatientID; 

CString m_Study InstUID ; 

CString m_StudyID; 

CString m_AccessionNumber ; 

double m_StudyTime; 

long m_StudyDate; 

CString m_Study Image sNum; 

//} }AFX_FIELD 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (ODBCStudySet) 
public : 

virtual CString GetDef aul t SQL () ; // Default SQL for Recordset 
virtual void DoFieldExchange ( CFieldExchange* pFX) ; // RFX support 
// } }AFX_VIRTUAL 
private : 

void UpdateFromDICOMRecord (DICOMRecord &dr) ; 
void ClearSet ( ) ; 

bool SetFromDICOMRecord (DICOMRecord &dr) ; 
CString GetDef aul tQuery (DICOMRecord& dr) ; 
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}; 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
II 

II ODBCSeriesSet recordset 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
class ODBCSeriesSet : public ODBCTableSet 

{ 

public : 

void WritelntoDICOMRecord (DICOMRecord &dr) ; 

void SetFindFilter (DICOMRecord &dr) ; 

ODBCSeriesSet (CDatabase* pDatabase = NULL) ; 
DECLARE_DYNAMIC (ODBCSeriesSet) 

// Field/Param Data 

// { {AFX__FIELD(ODBCSeriesSet , CRecordset) 

CString m_StudyInstUID ; 

CString m_Ser ies InstUID ; 

CString m_Modality; 

CString m_Ser iesNum; 

// } }AFX_FIELD 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (ODBCSeriesSet) 
public : 

virtual CString GetDef aul t SQL ( ) ; // Default SQL for Recordset 
virtual void DoFieldExchange (CFieldExchange* pFX) ; // RFX support 

"7! / / } }afx_virtual 

^ivate : 

OI void UpdateFromDICOMRecord (DICOMRecord &dr) ; 
i|j void ClearSet(); 

Z\ bool SetFromDICOMRecord (DICOMRecord &dr) ; 
""^ CString GetDef aul tQuery (DICOMRecord &dr) ; 

/e§/////////////////////////////////////////////////////////////////////////// 
A 

ODBCImageSet recordset 

ui 1 1 f 1 1 1 1 If 1 1 f 1 1 1 / 1 1 1 1 1 / N H / 1 1 1 1 1 f f 1 1 1 1 1 1 1 1 1 / n 1 1 N fi 1 1 1 1 H n f I / / 1 / 1 n 

e^iass ODBCImageSet : public ODBCTableSet 
publ ic : 

S\ void WritelntoDICOMRecord (DICOMRecord &dr) ; 

void SetFindFi Iter {DICOMRecord &dr) ; 

~^ CString GetFi lename ( ) ( return m_Filename; } ; 

LJ ODBCImageSet (CDatabase* pDatabase = NULL) ; 

DECLARE_DYNAM I C ( ODBC I mage S et ) 

// Field/Param Data 

// { {AFX_FIELD (ODBCImageSet , CRecordset ) 

CString m_Ser ies InstUID ; 

CString m_SOPIns tUID / 

CString m_ImageNum; 

CString m_Filename; 

// } }AFX_FIELD 



// Overrides 

// ClassWizard generated virtual function overrides 
/ / { { AFX_VIRTUAL ( ODBC I mage Set ) 
public : 

virtual CString GetDef aul tSQL () ; // Default SQL for Recordset 
virtual void DoFieldExchange (CFieldExchange* pFX) ; // RFX support 

// } }afx_virtual' 

private : 

void UpdateFromDICOMRecord (DICOMRecord &dr) ; 
void ClearSet ( ) ; 

bool SetFromDICOMRecord (DICOMRecord Sedr) ; 
CString GetDef aul tQuery (DICOMRecord &dr) ; 
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#endif // ! def ined ( AFX_ODBCj^MICLUDED_) 



ly 
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////////////////////// /////^^/ ///////////////// f////////////^^/f/ 

II ODBCDatabase Class 

// This class is derived from DICOMDatabase to support 
// ODBC data sources 

////////////////////////////////////////////////////////////////////// 
^include "stdafx.h" 
#include <odbcinst.h> 
#include "ODBC.h" 
#include " . .//DCM.h" 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
const CString ODBCDatabase :: db_DBName = "DCMDBase"; 

ODBCDatabase : : ODBCDatabase ( ) 

{ 

db_IsODBC=f alse; 

} 

ODBCDatabase : : -ODBCDatabase ( ) 

{ 

// Close database connection 

TRY { if (db_ODBCdb. IsOpen( ) ) db_ODBCdb . Close () ; } 
CATCH {CException, e) ( ; } 

END CATCH; 



/ 



*************************************************** 



Add records 

* 

*************************************************** 

lil)"bl ODBCDatabase: :DBAdd(DICOMRecord &dr) 

m 

W if ( !db_IsODBC) return DICOMDatabase :: DBAdd ( dr) ; 

if { ! dr . HasUniquePrimaryKeys ( ) ) return false; 
Us? // Check for consistency 
Jj 0DBC4Set set; 

f\\ if { set . HasAliasRecords (dr ) ) return false; // violates DB tree structure 

// Insert 
= ODBCPatientSet ps; 

r== if ( ! ps . AddOrUpdate (dr ) ) return false; 

Pj ODBCStudySet sts; 

if ( ! st s . AddOrUpdate (dr ) ) return false; 

f^^' ODBCSeriesSet srs; 

"^"=1 if (! srs . AddOrUpdate (dr) ) return false; 
r] ODBCImageSet ims ; 

if (! ims .AddOrUpdate (dr) ) return false; 

db_MostRecentRecord=dr ; 

return true; 



/* 



**************************************************** 



Add objects, thread-safe 



**********************************************************************/ 

bool ODBCDatabase: :DBAdd(DICOMObject *dob, PDU_Service *pdu) 

{ 

bool success = false; 

CSingleLock singleLock ( &db_DBAddDDO_Cr i t icalSect ion) ; 

singleLock. Lock (3000) ; // attempt to lock the shared resource 

if ( singleLock, I sLocKed () ) // resource has been locked 

( 

success = DICOMDatabase : :DBAdd (dob, pdu) ; 

) 

singleLock. Unlock ( ) ; 
return success; 

} 

/********************************************************************* 
* 

* Display records, thread-safe 
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^d^^Hs (Array<DICOMRecord> &a, bool f^^p.oca] 



void ODBCDatabase : iDisplayR^^^s {Array<DICOMRecord> &a, bool f^^fLocal) 

{ 

CSingleLock singleLock ( &db_Di splayRecords_Cr i t icalSect ion) ; 
singleLock. Lock ( 10000) ; // attempt to lock the shared resource 

if ( singleLock . I sLocked 0 ) // resource has been locked 

( 

DICOMDatabase : : DisplayRecords (a, f rom_local) ; 

} 

singleLock . Unlock ( ) ; 

} 

* 

* Add files and directories 

bool ODBCDatabase : :DBAddDirectoryContents (char *directory, bool copy_files, 

bool include_subdirectories/ *=true*/ ) 

{ 

CString info ("Adding directory "); 
info += CString (directory ) / 

// Process individual file 

if (DICOMDatabase : : DBAddDirectoryContent s (directory, copy_f iles , 

include_subdirectories) ) return true; 
// Processing Windows directory 
WIN32_FIND_DATA wf ; 

// Add '\\' to the end of directory string, if needed 
char dir [MAX_PATH] ; 
r% char clast = directory [ strlen (directory) - 1] ; 

.1^ if (clast = = ' / ' II clast = ='\\') sprintf (dir %s" , directory) ; 
'ti else sprintf (dir %s\\ directory) ; 

If Set wildcard search mask 
J3 char nf [MAX_PATH] ; 
Sj sprintf (nf , "%s*" , dir) ; 
^: // Search 

char fullname [MAX_PATH] ; 
Ji HANDLE hf=FindFirstFile(nf ,&wf ) ; 

if (hf ==INVALID_HANDLE_VALUE) return false; 

do 
{ 

if ( strcmp (wf . cFileName , " . " ) ==0 ) continue ; 

if ( strcmp (wf . cFileName , " . . " ) ==0 ) continue ; 
sprintf (fullname , " %s%s" , dir , wf . cFileName) ; 
if (wf .dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) 



S-3 S 



if ( include_subdirectories) 

( 

=- DBAddDirectoryContents ( fullname , copy_f iles) ; 

} 

} 

else 

{ 

DICOMDatabase: : DBAdd ( f ul Iname , copy_files) ; 

} 

} 

while (FindNextFile(hf ,&wf ) ) ; 
FindClose (hf ) ; 
return true; 

} 

* 

* Remove files and directories 
* 

**********************************************************************/ 
int ODBCDatabase : :DBRemoveDirectoryContents (char *directory, 

bool use_f ilenames , bool include_subdirector ies/ *= true*/ ) 

{ 

CString info ( "Removing directory "); 
info += CString (directory) ; 

// Process individual file 

if (DICOMDatabase : : DBRemoveDirectoryContent s (directory, use_f ilenames , 

include subdirectories)) return true; 
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// Processing Windows dij 
WIN3 2_FIND_DATA wf ; 

// Add *\\' to the end of^irectory string, if needed 
char dir [MAX_PATH] ; 

char clast = directory [ strlen (directory )- 1 ] ; 

if{cla8t=='/' II clast =='\\') sprint f (dir, "%s" , directory) ; 
else sprintf (dir, "%s\\" , directory) ; 

// Set wildcard search mask 
char nf [MAX_PATH] ; 
sprintf (nf , '*%s*" ,dir) ; 
// Search 

char fullname [MAX_PATH] ; 

HANDLE hf =FindFirstFile (nf , &wf ) ; 

if (hf ==INVALID_HANDLE_VALUE) return false; 

do 

{ 

if ( strcmp (wf . cFileName , " . " ) ==0) continue ; 

if (strcmp (wf . cFileName ,"..") ==0 ) continue ; 

sprintf (fullname , " %s%s" , dir , wf . cFileName) ; 

if (wf .dwFileAttributes & FI LE_ATTRIBUTE_DIRECTORY) 

{ 

if ( include_subdirectories) 

{ 

DBRemoveDirectoryContents (fullname, use_f i lenames) ; 

) 

} 

el se 

{ 

DICOMDatabase : : DBRemove ( f ul Iname , use_f ilenames) ; 

while (FindNextFile(hf ,&wf ) ) ; 
FindClose (hf ) ; 
Jl return true ; 

^* **************************************************************** 
fiz Remove all records from the database 

«*********************************************************************/ 
ieoid ODBCDatabase : : RemoveAl IRecords ( ) 

b 

z; if ( Af xMessageBox ( " Are you sure you want to remove all database records 

ry MB_YESNO) == IDNO) return; 

*-J DICOMRecord dr; 

Pi int n = DBRemove (dr) ; 

=i if(n>0) 

est ring info; 

inf o . Format (" %d records were removed", n) ; 
Af XMessageBox (info, MB_ICONINFORMATION) ; 

) 

else Af XMessageBox ( "No records found", MB_ICONINFORMATION) ; 

} 

/***********************************************★********************* 

* Open local records 
* 

************************************************** 

bool ODBCDatabase :: GetFromLocal (DICOMDataObj ect &ddo_mask) 

{ 

if ( !db_IsODBC) return DICOMDatabase : : Get FromLocal (ddo_mask:) ; 
ODBCTableSet* pTR=NULL; 

pTR = (ODBCTableSet*) DICOMDatabase :: StartSearch (ddo_mask, 

RetrieveHierarchical) ; 

if(!pTR) return false; 

Array<DICOMRecord> found; 
est ring fname; 
do 
{ 

fname = pTR- >GetFi lename ( ) ; 
if ( f name== " " ) continue; 
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I^^^d (db_MostRecentRecord) ; 
c^^Hecord) ; 



pTR->WriteIntoDICOM 
found. Add {db_Most Re 

} 

while (pTR->FetchNextRecord { ) ) ; 
StopSearch (pTR) ; 
DisplayRecords ( found , true) ; 
return true; 

} • 

/********************************************************************* 

* Initialize database 
* 

***************************************************** 

bool ODBCDatabase : : InitializeDataBase (char *directory, 

void { cdecl *disp) (Array<DICOMRecord>£c, bool)) 

{ 

if ( IDICOMDatabase : : InitializeDataBase (directory, disp) ) return false; 

// Try to open ODBC connection 

if (Connect 0 ) return true; 

// Try to find the local DB file 

CString failedODBC = CStringC'DCM failed to setup ODBC database . \n" ) + 

CString (" File-based database will be used instead"); 
CString dbfilenew = CString (directory ) ; 

int n = dbfilenew. Find ( "WApplic" , 0) ; if(n>0) dbf ilenew=dbf ilenew. Lef t (n) ; 
CString dbfileold; 

dbf ileold. Format { "%s\\%s .mdb" , dbf ilenew, db_DBName) ; 
dbfilenew. Format ( " %s\\%s .mdb" , directory, db_DBName) ; 
if (GetFileAttributes (dbf ilenew) ==-1) // no such file 

□ { 

■F^ if (CopyFile (dbf ileold, dbfilenew, FALSE) == FALSE) 

m { 

CString nofile; 

J3 nofile . Format ( "Cannot find ODBC database file %s . \n'\ dbf i leold) ; 

-^j AfxMessageBox(nof ile + failedODBC, MB_ICONINFORMATION | MB_OK) ; 

return true; 

nj // Try to reinstall the ODBC 

'J' CString driver = "Microsoft Access Driver (*.mdb)"; 

f CString config; 

H= config. Format ( "DSN=%s; DESCRI PTION=DCM Application Database;" 
r1 "DBQ=%s ; " , db_DBName , dbfilenew); 

I't if (: :SQLConf igDataSource (NULL,ODBC_ADD_DSN, 
driver , config) == FALSE) 

□ { 

AfxMessageBox(failedODBC, MB_ICONINFORMATION | MB_OK) ; 

~ } 

el se 

if (! Connect 0 ) Af xMessageBox ( f ai ledODBC , MB_IC0NINF0RMATION | MB_OK) ; 

} 

return true; 

} 

/************★******** ********************* ************** ******* ****** 
* 

* Remove records. Returns the number of deleted records 
* 

**********************************************************************/ 
int ODBCDatabase : :DBRemove (DICOMRecord ficdr_mask) 

{ 

if ( ! db_IsODBC) return DICOMDatabase : : DBRemove (dr_mask) ; 
0DBC4Set* pTR=NULL; 

pTR = (0DBC4Set*) StartSearch (dr_mask, RetrieveRelat ional ) ; 

if(!pTR) return false; 

int removed=0; 

do 

{ 

RemoveUnique ( pTR- >m_Pat lent ID , pTR- >m_Study InstUID , 

pTR->m_SeriesInstUID, pTR- >m_SOPInstUID) ; 
removed++ ; 
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} 



while (pTR->FetchNextRec 
StopSearch (pTR) ; 
return removed; 



* Search records 

*' 

**********************************************************************/ 
void* ODBCDatabase : : StartSearch (DICOMRecord &dr_mask, const BYTE how) 

{ 

if ( ! db_IsODBC) return DICOMDatabase :: Start Search ( dr_mask , how) ; 

// Initialize appropriate class pointer for match/retrieve 

ODBCTableSet* pTR = NULL; 

TRY 

{ 

if (how==MatchRelat ional || how==RetrieveRelat ional ) 



{ 



0DBC4Set* pSet = new 0DBC4Set(); 
pTR = pSet; 



else if (how==Mat chHierarchical } 

{ 

BYTE lev = dr_mask . FindQLevel ( ) ; 
if ( lev==DICOMRecord : : Level Inval id) 



i?3 



else 
{ 



ODBCPatientSet* pSet 
pTR = pSet; 



new ODBCPatientSet 0 ; 



Ise if ( lev==DICOMRecord : : LevelPat lent ) 

ODBCStudySet* pSet = new ODBCStudySe t ( ) ; 
pTR = pSet; 

Ise if (lev==DICOMRecord: :LevelStudy) 



ODBCSeriesSet* pSet 
pTR = pSet; 



= new ODBCSeriesSet (} ; 



Ise // lev==LevelSeries or lev==Level Image 

ODBCImageSet* pSet = new ODBCImageSet ( ) ; 
pTR = pSet; 



if (how==Retr ieveHierarchical ) 

f ( ! : : IsUniqueString (dr_mask . GetSOPInstUID ( ) ) ) 

return ODBCDatabase :: Start Search ( dr_mask , RetrieveRelational) 

ODBCImageSet* pSet = new ODBCImageSet () ; 
pTR = pSet; 

} 

else return NULL; 
if{!pTR) return NULL; 

pTR- >SetFindFilter (dr_mask) ; 

if ( !pTR->Open ( ) ) { delete pTR; return NULL; } 

if (pTR->IsEOF 0 ) { pTR->Close ( ) ; delete pTR; return NULL; } 

return pTR; 
} // TRY 

CATCH (CExcept ion , e) 
{ 

if (pTR) delete pTR; 
return NULL; 

} 

END_CATCH ; 

if (pTR) delete pTR; 

return NULL; 

} 

void ODBCDatabase :: StopSearch (void* pTR) 
{ 

if { !db_IsODBC) DICOMDatabase : : StopSearch (pTR) ; 
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try { delete ( ODBC Tab * ) pTR; } 

catch (...) { } 
} 

BYTE ODBCDatabase : : RetrieveNext ( void* pTR, DICOMObject &dob_found) 

{ 

if ( ! db_IsODBC) return DICOMDatabase : :RetrieveNext (pTR, dob_f ound) ; 
if(!pTR) return RecordsEnd; 
ODBCTableSet* pTabRec = (ODBCTableSet *) pTR; 

if ( ! pTabRec- > IsOpen ( ) || pTabRec->IsEOF { ) ) return RecordsEnd; 

bool loaded = dob_f ound. LoadFromFile ( (char*) (LPCSTR) (pTabRec->GetFilename ()) ) 

pTabRec- >FetchNextRecord ( ) ; 

if (loaded) return RecordFound; 

else return FindMore; 

} 

BYTE ODBCDatabase : iMatchNext (void* pTR, DICOMObject &dob_found, 

DICOMObject *dob_mask) 

{ 

if ( ! db_IsODBC) return DICOMDatabase : :MatchNext (pTR, dob_found, dob_mask) ; 
if(!pTR) return RecordsEnd; 

ODBCTableSet* pTabRec = (ODBCTableSet *) pTR; 

if ( ! pTabRec->IsOpen 0 || pTabRec -> I sEOF () ) return RecordsEnd; 
pTabRec- >WriteIntoDICOMObj ect {dob_f ound, dob_mask) ; 
pTabRec- >FetchNextRecord ( ) ; 
return RecordFound; 

} 

* 

* Connect to the application database 
* 

^e* 3*- ************************************************************ 
bpibl ODBCDatabase :: Connect ( ) 

db_ IsODBC^false; 
*J| TRY 

.jl if (db_ODBCdb. IsOpen { ) ) db_ODBCdb . Close ( ) ; 

CString con; 
'41 con. Format ( "DSN=%S; " , db_DBName) ; 

nj db_IsODBC = (db_ODBCdb.OpenEx (con, CDatabase : : noOdbcDialog) ==TRUE) ; 

return db_IsODBC; 

f- } 

?== CATCH (CExcept ion , e) 

P #ifdef _DEBUG 

e - >ReportError ( ) ; 
'"4 # end if 

return db_IsODBC; 

n } 

END_CATCH; 
return db_IsODBC; 

} 

* 

* Remove an entry with unique primary keys 
* 

******************************************************** 

bool ODBCDatabase :: RemoveUnique (CString &pKey, CString &stKey, 

CString StserKey, CString &imKey) 

{ 

bool stop; 

TRY 
{ 

/ / Remove at image level 
ODBCImageSet ims ; 

ims , m_str Filter . Format ( " Series Inst UID= ' %s ' " , serKey) ; 
if ( ! ims . Open ( ) ) return false; 

if ( ! ims . CanUpdate ( )) { ims. Close (); return false; } 
stop = false; 
while ( ! ims . IsEOF ( ) ) 

{ 

if ( ims . m_SOPInstUID ! =imKey) stop=true ; 
else 

{ 

if ( ims .m_Filename .Find (db_Directory , 0) >=0) 
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DeleteFr 

} 

ims . Delete { ) ; 



ms.m Filename) ; 



} 

ims . MoveNext ( ) ; 

} 

ims . Close ( ) ; 

if (stop) return true; 

// Remove at series level 
ODBCSeriesSet srs; 

srs.m_strFilter. Format ( " Study InstUID= ' %s ' " , 

if ( ! srs . Open ( ) ) return false; 

if ( ! srs . CanUpdate ( )) { srs, Close (); 

stop = false; 

while ( ! srs, IsEOF( ) ) 



stKey) ; 
return false; 



if ( srs . m_SeriesInstUID != serKey) stop=true; 
else srs . Delete () ; 
srs • MoveNext ( ) ; 

} 

srs . Close ( ) ; 

if (stop) return true; 

// Remove at study level 
ODBCStudySet sts; 

sts .m_str Filter . Format ( " Patient ID= ' %s ' " , pKey) ; 
if ( ! sts . Open ( ) ) return false; 

if (! sts . CanUpdate ( )) ( sts.CloseO; return false; 
stop = false; 
while ( ! sts . IsEOFO ) 
{ 

if ( St s . m_StudyInstUID != stKey) stop=true; 
else sts , Delete () ; 
sts . MoveNext ( ) ; 

) 

sts . Close ( ) ; 

if (stop) return true; 

// Remove at patient level 
ODBCPat ientSet ps; 

ps .m_st r Filter . Format ( " Patient ID= ' %s ' " , pKey) ; 
if { ! ps . Open ( ) ) return false; 

if { !ps. CanUpdate ( )) { ps.CloseO; return false; } 

while( !ps. IsEOF() ) 
{ 



ps . Delete ( ) ; 
if ( !ps. IsEOFO ) ps. MoveNext () ; 

} 

ps .Close ( ) ; 



return true; 

} 

CATCH (CExcept ion, e) 
{ 

#ifdef _DEBUG 

e- >ReportError ( ) ; 

#endif 

return false; 

} 

END_CATCH ; 
return false; 

///////////////////////////////////////////////////////////////////////////// 
// 

// ODBCTableSet 
// 

///////////////////////////////////////////////////////////////////////////// 
IMPLEMENT_DYNAMIC (ODBCTableSet , CRecordset ) 

ODBCTableSet: :ODBCTableSet (CDatabase* pdb) 

: CRecordset ( theApp . app_DataBase . GetCDatabasePtr ( ) ) 
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// Smart record-closing destructor 

ODBCTableSet : : -ODBCTableSet ( ) 

{ 

TRY { ifdsOpenO) Close(); 
CATCH (CExcept ion, e) { ; } 

END_CATCH ; 

} 



CString ODBCTableSet: : GetDef aul tConnect ( ) 

{ 

CString connect; 

connect . Format ( "ODBC; DSN=%s" , theApp . app_DataBase . db_DBName) ; 
return connect; 

} 

#ifdef _DEBUG 

void ODBCTableSet : :AssertValid { ) const 

{ 

CRecordset : : Assert Val id ( ) ; 

} 

void ODBCTableSet :: Dump (CDumpContext& dc) const 

{ 

CRecordset: :Dump{dc) ; 

} 

#endif //_DEBUG 

/j*^ ******************************************************** 

Moving to next record, if possible 

*yi 

\9r^ ************************************************* 

bi)pl ODBCTableSet : : FetchNextRecord ( ) 
41 TRY 

aj { 

H= if { ! IsOpen { ) ) return false; 

MoveNext ( ) ; 

= ifdsEOFO) { CloseO; return false; } 

return true; 

b ) 

CATCH (CException, e) { return false; } 

HJ END_CATCH; 
~-J return false; 

fci 

r* *************************************************** + ******* 

* Append filter criteria 
* 

**************************************************** 
void ODBCTableSet : lAndFilter (CString fName, char *sValue) 

{ 

if ( : : IsEmptyString ( sValue) ) return; 
CString fValue = : : Tr im ( sValue) ; 
if (fValue==" " ) return; 

CString filterC") ; 

CString and = (m_strFilter == ? : " AND"); 

if ( fName . Find (" Fi lename" , 0 ) <0 && fValue . Find { ' \\ ' , 0) >0) // we have a set 
{ 

fValue .Replace (" \\ ; 

filter. Format ( "%s %s IN ('%s') and, fName, fValue); 
filter .Replace ('*','%'); f i Iter . Replace ('?','_'); 

} 

else if (fValue. Find ('*', 0) > = 0 || f Value . Find ('?', 0 ) > = 0 ) // we have wildcards 

{. 

if ( f Value== " * " ) return; // anything goes 

filter. Format ("%s %s LIKE '%s' and, fName, fValue); 

filter .Replace ('*','%'); f i Iter . Replace ('?','_'); 

} 

else // plain match 

{ 
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Beep(500, 100) ; 
if ( !GetSafeHwnd( ) ) reti 

if (m_SearchDialog . DoModalT) != IDOK) return; 
Beep(500, 100) ; 

m_RequestedClientService=f ind_root ; 
if ( ! AfxBeginThread(StartQRClient , this, 

GetThreadPriority ( ) , m_Cl ientStackSize) ) RunCl ientThread ( ) ; 

} 

void DQRControl : : FindAll ( ) 

{ 

if ( !m_LocalOnly) m_PreloadData=f alse ; // we preload only on local ! 
if (m_PreloadData) 

{ 

m_RequestedCl ient Service =find_root ; 

if ( lAfxBeginThread (Start QRCl ient , thi s , GetThreadPriority ( ) , 
m_ClientStackSize) ) RunClientThread { ) ; 

} 

} 

void DQRControl :: UpdateAfterFind (bool f ind_success ) 

{ 

LoadFoundList ( ! f ind_success) ; 

if ( ! f ind_success) AfxMessageBox ( "Cannot find", MB_ICONEXCLAMATION | MB_OK) ; 
if ( f ind_success m_DQR . Get FoundCount ( ) >0 ) // Something's found 

{ 

// Set list selection 

if (m_RequestedClientService=f ind_previous) 

{ 

int nsel=m_ResultsList Select ion [max ( 1 , m_DQR . Get Level ( ) ) - 1] ; 

if(nsel<0 II nsel>m_DQR . Get FoundCount () ) 

{ 

Ui nsel=0; 

ni m_ButtonGet . EnableWindow( FALSE) ; 

'^l m_ButtonMoveTo . EnableWindow( FALSE) ; 

"^J else 

m_ButtonGet . EnableWindow (nsel>0) ; 
m_But tonMoveTo . EnableWindow (nsel>0 ) ; 

nJ } 

^ m_ResultsList.SetItemState{nsel,LVIS_SELECTED | LVIS_FOCUSED , LVI S_SELECTED | LVIS_FO 

|ySED) ; 

'Ji m_ResultsList . EnsureVisible (nsel , FALSE) ; 

} 

Hi } 

El 

P C-Get 

************************************************************* 

void DQRControl :: OnButtonGet ( ) 

{ 

Beep(500, 100) ; 
UpdateData (TRUE) ; 
int sel; 

if (GetResultsListSelect ion ( sel , m_DOBindex) <2) 

{ 

AfxMessageBox (" Cannot get unspecified entry"); 
return; 

} 

m_Reque St edCl ient Service =get_index ; 
if (m_UseTaskQueue ) 

I 

m_DQR . Get (m_DOB index , true); // queue 

} 

else 

{ 

if ( !AfxBeginThread (Start QRCl ient , this , GetThreadPriority ( ) , 
m_ClientStackSize) ) RunClientThread ( ) ; 

} 
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C-Move 



***************************************************************************^ 

void DQRControl : : OnButtonMoveTo ( ) 
{ 

Beep(500, 100) ; 
UpdateData(TRUE) ; 
int sel; 

if ( Ge t Re sultsLi St Select ion ( sel , m_DOB index) <2) 

{ 

AfxMessageBox ( "Cannot move unspecified entry"); 
return; 

} 

UINT n=m_MoveArchiveList .GetCurSel 0 ; 
if ( !m_AEarray ) return; 

strcpy (m_MoveDest inationAE, m_AEarray- >Get (n) .ae_Title) ; 
m_RequestedClientService=move_index ; 
if (m_UseTaskQueue) 

{ 

m_DQR. Move (m_DOBindex ,m_MoveDestinationAE, true) ; // queue 

) 

el se 

{ 

if ( lAfxBeginThread (Start QRClient , thi s , GetThreadPr ior i ty ( ) , 
m_ClientStackSize) ) RunClientThread ( ) ; 

) 

}p 

/ ********************************************** 

* .^^ Run a CLIENT thread, wrapped in C syntax 

* i^* *************************************************************** ^ 

Ui^T DQRControl : :StartQRClient (LPVOID ptrDQRControl ) 

DQRControl* pDQRC=: (DQRControl* ) ptrDQRControl ; 
nj if (pDQRC==NULL) return (UINT) FALSE; // illegal parameter 
3 return pDQRC- >RunCl ientThread ( ) ; 

/hk* ************************************************************************* 
*p| ^************************************************************************* 

*-^ z 

*sZ Thread-handling routines 

i^Jf ************************************************************************* 
***************************************************************************/ 

void DQRControl :: Set InterruptMode (bool interrupt) 
{ 

int sw = interrupt ? SW_HIDE : SW_SHOW; 
GetDlgItem( IDC_STATIC_MOVETO) - >ShowWindow ( sw) ; 
if (m_LocalOnly) 

{ 

GetDlgItem(IDC_BUTTON_DELETE) - >ShowWindow ( sw) ; 

} 

m_ArchiveList . EnableWindow (! interrupt && ! m_LocalOnly ) ; 
m_MoveArchiveList . ShowWindow ( sw) ; 
m_Result sList . Enable Window { ! interrupt ) ; 

m_ButtonSearch . ShowWindow ( sw) ; 
m_ButtonGet . ShowWindow ( sw) ; 
m_ButtonMoveTo . ShowWindow ( sw) ; 

// Enable animation 
if { interrupt ) 

{ 

m_AnimNetwork- ShowWindow ( SW_SHOW) ; 

GetDlgItem(IDC_STATIC_PROGRESS) - >ShowWindow ( SW_SHOW) ; 
m_AnimNetwork . Open ( IDR_AVI_CONNECT) ; 

} 

else 



13 



dqrcontrol . cpp 10/27/00 



finaow 



} 



m_AnimNetworJc .Close I 
m_AnimNetwork . ShowWinaow { SW_HIDE) 
m_ButtonCancel . ShowWindow ( SW_HIDE) ; 

GetDlgItem{IDC_STATIC_PROGRESS) - >SetWindowText ( " ") ; 
GetDlgItem( IDC_STATIC_PROGRESS} - >ShowWindow ( SW_HIDE) ; 



) 

/****★********************************************************************** 

* Thread-safe UpdateData 

************************************************************************** 

BOOL DQRControl :: UpdateData (BOOL bSaveAndVal idate ) 

{ 

if (m_HWND) return FromHandle (m_HWND) ->UpdateData (bSaveAndValidate) ; 
else return FALSE ; 

} 

* Run client thread 
* 

********************************************************************** 
bool DQRControl: : RunCl ientThread ( ) 

{ 

//Disable window controls 

Set InterruptMode ( true) ; 

// Lock on thread start 
f-B, CSingleLock singleLock (&m_RunClientThread_CritSection) ; 
'-^ singleLock . Lock { 3000) ; // attempt to lock the shared resource 

ni m_DQR, SetLastMessagelD (0) ; 

'^f // Execute DIMSE service 

'"H bool success = f alse ; 

J% switch (m_RequestedCl lent Service) 

Z\ case echo: // C-Echo 

ly GetDlgItem{IDC__CONNECTION) -> 

5 SetWindowText ( "Archive connection: Verifying 

success = m_DQR . Echo ( ) ; 

if (success) GetDlgItem(IDC_CONNECTION) -> 

SetWindowText ( "Archive connection: Connected"); 
pj else GetDlgItem(IDC_CONNECTION) -> 

L": SetWindowText ( "Archive connection: Cannot connect"); 

break; 
i=tJ case f ind_root : 

DICOMRecord dr ; 

m_SearchDialog . Write IntoDICOMRecord (dr) ; 
success=m_DQR. FindRoot (dr ) ; 

} 

UpdateAfterFind ( success ) ; 

break ; 
case f ind_previous : 

success=m_DQR . FindPrevious Level ( ) ; 

UpdateAfterFind ( success) ; 

break ; 
case find_next: 

success=m_DQR . FindNextLevel (m_DOBindex) ; 

UpdateAfterFind ( success ) ; 

break ; 
case find: 

if (m_DQR.Find() ) UpdateAfterFind { true ) ; 

else 

{ 

CString info; 

info . Format (" Several records were removed from the local database\n\n" 
"Some of the records in the query results window\n" 
"may no longer be valid !"); 

AfxMessageBox(info, MB_ICONINFORMATI0N) ; 

} 

break; 
case get_index: 
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success=m_DQR.Get (m_^^fcindex, false); // no queue 
LoadFoundLi St (false _ 
if(!success) AfxMessageBox ("Cannot get", MB_ICONEXCLAMATION | MB_OK) ; 
break; 
case move_index: 

success=m_DQR .Move (m_DOB index , m_MoveDestinationAE, false) ; // no queue 
LoadFoundList (false) ; 

if (! success) AfxMessageBox( "Cannot move", MB_ICONEXCLAMATION | MB_OK) ; 

break; 

) 

m_DQR . SetLastMessagelD ( 0) ; 
SetlnterruptMode (false) ; 

// Signal thread end 
singleLock. Unlock 0 ; 
Beep(700, 100) ; 

return success; // normal termination 

} 

* 

* Get thread priority from DICOM message priority 
* 

********************************************************** 
int DQRControl : : GetThreadPr ior i ty ( ) 

{ 

if (m_DQR . Get Priority ( ) ~~ ServiceClass : : LowPr ior ity ) 

return THREAD_PR ICR I T Y_B ELOW_NORMAL ; 
if (m_DQR . Get Priority ( ) == ServiceClass :: HighPriority) 

return THREAD_PRIORITY_ABOVE_NORMAL ; 
U return THREAD PRIORITY NORMAL; 

/ **************************************************** 
♦"^J Determine IP address of the local PC 

* C4 *********************************************************** 

bgsl DQRControl : :GetLocalIP (CStringSc sname, BYTE& ipl,BYTE& ip2, 
fd BYTE& ip3,BYTE& ip4 ) 



bool success = false; 
WORD wVersionRequested; 
WSADATA wsaData; 
f|j char name [255]; 
L'i CString ip; 
2t PHOSTENT hostinfo; 

wVersionRequested = MAKEWORD ( 2, 0 ); 
rj sname= " " ; 

~ if ( WSAStartup( wVersionRequested, &wsaData ) == 0 ) 

{ 

if{ gethostname ( name, sizeof ( name ) ) == 0) 

{ 

if ((hostinfo = gethostbyname (name) ) != NULL) 

{ 

ip = inet_ntoa (* (struct in_addr * ) *host inf o- >h__addr_l ist ) ; 

sscanf ( (char*) (LPCSTR) ip, " %u. %u. %u. %u" , &ipl , &ip2 , &ip3 , &ip4) ; 

success = true; 

sname = CString ( name ) ; 

sname . TrimRight ( ) ; sname . TrimLef t ( ) ; 

sname . MakeUpper ( ) ; 

if ( sname == " " ) sname = "This_PC" ; 

} 

} 

WSACleanup ( ) ; 

} 

if(!success) { ipl=127; ip2=0; ip3=0; ip4=l; } 

return success; 



* 

* Server threads 
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r\HP>PVOID index) 



UINT DQRControl : :StartQRSer>i 
{ 

UINT ae_index = (UINT) index ; 

ApplicationEntityList *ael = ( Appl icationEnt i tyList* ) 

(SetheApp. app_DataBase . db_AElist) ; 

if (ae_index>=ael - >GetSize ( ) ) 

( 

Af xEndThread (0) ; return 0; 

} 

ael->Get (ae_index) . SetPartnerTitle (ael->GetLocalAE () .ae_Title) ; 
Server srv ( &theApp . app_DataBase , &theApp . app_ServerLog) ; 
MarkAEServerStatuses (ael , ae_index, true) ; 

srv.RunServer (& (ael->Get (ae_index) ) , false); // Multiple threads for CCancel ? 
MarkAEServerStatuses (ael , ae_index, false); 
AfxEndThread(l) ; 
return 1; 

} 

void DQRControl : :MarkAEServerStatuses (ApplicationEntityList *ael, UINT ae_index, 

bool status) 

{ 

if ( ! ael) return; 

if (ae_index>=ael->GetSize ( ) ) return; 

int nPort = ael - >Get ( ae_index) . ae_PortServer ; 

ael - >SetServedStatus (nPort , status) ; 

if ( ! status) 

{ 

CString info; info . Format (" Server at port %d abnormally terminated . \n" 

"Please restart the application.", nPort); 
Jj AfxMessageBox (inf o, MB_ICONINFORMATION | MB_OK) ; 

01 } 

hdgl DQRControl :: StartAEServer (UINT ae_index) 
2=[ if ( ! m_AEarray) return false; 

lU if{ae_index >= m_AEarray- >Get Size { ) ) return false; 

= if ( !m_AEarray->Get (ae_index) . ae_Served) // Need to start server 

{ 

// Launch server thread 

if (Af xBeginThread (StartQRServer , (LPVOID) ae_index, 
ni THREAD_PRIORITY_BELOW_NORMAL, 10000) NULL) 

{ 

return false; 



else // just wait for the server thread to start 

{ 

while (m_AEarray- >Get (ae_index) . ae_Served != true) Sleep(lOO); 

} 

} 

return true ; 



bool DQRControl : : StartAl iServers ( ) 

( 

if ( ! m_AEarray) return false; 
UINT failedCount=0; 
UINT nAEs = m_AEarray- >GetSize ( ) ; 
for (UINT n=0; n< nAEs; n++) 

{ 

:: ShowProgress (( 100* (n+1) ) /nAEs , "Initializing archive servers"); 
if (! StartAEServer (n) ) failedCount ++; 
Sleep(lO) ; 

} 

: : ShowProgress (0,0) ; 

if ( f ailedCount>0) AfxMessageBox (" Failed to launch server(s) for some AEs"); 
return ( f ai ledCount = =0 ) ; 
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Function to be called f 



ij^^^i^DQR and ServiceClass 



***************************************************************************/ 
int DQRControl : :DQRCtrlCallbackFilter (void *dqrctrl, UINT stepnum, UINT id) 
{ 

if(!dqrctrl) return 0; 
DQRControl* d; 

try { d = (DQRControl*) dqrctrl ; } 
catch (...) { return 0; } 
CString progress; 

if(stepnum == Cal IBackOb j ect : : m_CBConnect ingToAE) 

{ 

progress = "Connecting to archive 

} 

else if(stepnum == CallBackObject : :m_CBConnectionFailed) 

{ 

progress = "Connection failed . . . " ; 
d- >m_AnimNetwork . Close ( ) ; 

) 

else iflstepnum == Cal IBackOb j ect :: m_CBSendingRequest ) 

{ 

progress = "Sending request ..."; 
d->m_AnimNetwork. Close 0 ; 
d->m_AnimNetwork.Open( IDR_AVI_SEND) ; 

) 

else if(stepnum == Cal IBackObj ect : : m_CBGet t ingResponse ) 

{ 

tj progress = "Getting response ..."; 

.'JI d- >m_AnimNetwork . Close () ; 

d->m_AnimNetwork,Open(IDR__AVl_RECEIVE) ; 
yl d->EnableCancel 0 ; 

as » 

5 else if(stepnum Cal IBackOb j ect :: m_CBResponseReceived) 

^ij progress = "Response received"; 

J] d- >m_AnimNet work . Close {) ; 

=1 d->m_AnimNetwork. ShowWindow(SW_HIDE) ; 

d->m_ButtonCancel . ShowWindow(SW_HIDE) ; 

^ } 

irsh else if(stepnum == Cal IBackOb j ect :: m^CBCancelSent ) 

ei { 

progress = "Cancel request sent"; 

W } 

--J else if(stepnum == Cal IBackOb j ect :: m_CBDQRTaskSchedule ) 

d { 

z: if (d->Tn_PromptForTaskScheduler) 

Q { 

d->m_TaskScheduler . RunScheduler ( * ( (DQRTask* ) id) , true) ; 

) 

return 1; 

} 

else ( ) 

if (progress ! = " " ) 

{ 

d->GetDlgI tem(IDC_STATIC_PROGRESS) - >ShowWindow ( SW_SHOW) ; 
d->GetDlgItem(IDC_STATIC_PROGRESS) - >SetWindowText (progress) ; 

} 

return d- >m_DQR . DQRCal IbackFi Iter ( stepnum, id) ; 



* Drug and drop support 
* 

void DQRControl : lOnBeginDragListResults (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

NM_LISTVIEW* pNMListView = (NM_LI STVI EW* ) pNMHDR ; 

theApp. app_QueryRetrieve .OnBeginDrag (& { thi s- >m_Resul t sList ) , pNMHDR) ; 
*pResult = 0; 



void DQRControl :: DropOn (CWnd *win) 
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= 7?ExGetMainWnd() 11 



if(!win) return; 

if (win- >GetParent ( ) -="^?rxGetMainWnd ( ) || 
(win->GetTopLevelFrame 0 == Af xGetMainWnd { ) && win- >Get Parent ()! =thi s && 
win- >Get Parent Frame { ) ! =t hi s- >Get Parent Frame ( ) ) ) 

{ 

OnButtonGet ( ) ; 
return; 

} 

int nid = win- >GetDlgCtr IID ( ) ; 

if (nid==IDC_LIST_RESULTS) // drop on results list 
{ 

CWnd* par = win- >Get Parent () ; 

if(!par II par == (CWnd*) this) return; 

DQRControl* destin = NULL; 

try 

{ 

destin = (DQRControl* ) par ; 
if(!destin) return; 

UINT nAEFrom = m_Archi veList . GetCurSel () ; 

UI^fT nAETo = dest in- >m_ArchiveList . GetCurSel () ; 

if (nAEFrom == nAETo) 

{ 

Af xMessageBox ( " You cannot copy to the same archive !"); 
return; 

} 

m_MoveArchiveList . SetCurSel (nAETo) ; 
UpdateData (FALSE) ; 
OnButtonMoveTo ( ) ; 

g=5 catch ( , . ,) ( } 

return; 



y- 



void DQRControl :: DropOn (CWnd *wdrag, CWnd *wdrop) 

nj if(wdrag != ( CWnd* ) ( &m_Result sLi st ) ) return; 
DropOn (wdrop) ; 

rj 

/|36 ************************************************************************** 

* Column sorts 

********************************************************** 

vo'id DQRControl : lOnHeaderClicked (NMHDR *pNMHDR, LRESULT *pResult) 
{ 

HD_NOTIFY *phdn = (HD_NOTIFY *) pNMHDR; 

if( phdn- >iButton 0 m_ResultsList . Get I temCount ( ) >2 ) 

{ 

// User clicked on header using left mouse button 
if ( phdn->iltem == m_nSortColumn ) 

m_bSort InlnsreasingOrder = !m_bSortInInsreasingOrder ; 
else m_bSort InlnsreasingOrder = true; 

m_nSort Column = phdn- >i Item; 

m_Resul tsList . Sort Items ( Compare I terns , (DWORD) this) ; 

} 

*pResult = 0; 

} 

int CALLBACK DQRControl :: Comparel terns (LPARAM IParaml, LPARAM lParam2, 

LPARAM IParamSort) 



( 



int comp=0; 

DQRControl* pDQRCtrl = (DQRControl* ) IParamSort ; 
if ( ! pDQRCtrl) return 0; 

// Check if we work with the parent item 

if ( (DWORD) IParaml == m_Parent Li s t I t emData ) return -1; 

if ( (DWORD) lParam2 == m_ParentList I temData) return 1; 

// Find item index from item data 

LVFINDINFO info; 

info. flags = LVFI_PARAM; info.lParam = IParaml; 

int indl = pDQRCtrl - >m_ResultsList . Findltem ( &info) ; 
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if{indl == -1) return (^^^ 

info, flags = LVFI_PARAM inf o . IParam = lParam2; 

int ind2 = pDQRCtrl->m_ResultsList . Findltem(&inf o) ; 
if(ind2 == -1) return 0; 
// Compare the items 
int col = pDQRCtrl->m_nSortColumn; 

CString si - pDQRCtrl- >m_Result sList . Get ItemText ( indl , col); 
if(sl=="*" II sl=="?" II sl==" " II sl=="") return 1; 
CString s2 = pDQRCtrl- >m_ResultsList . Get ItemText ( ind2 , col); 
if(s2=="*" II s2=="?" II s2==" " II s2=="") return -1; 
if( col == m_ColumnBDate || col == m_ColumnBTime || 

col == m_ColumnSDate | | col == m_ColumnSTime ) // dates 

{ 

COleDateTime dtl, dt2; 
dtl . ParseDateTime ( si) ; 

if (dt 1 . GetStatus 0 != COleDateTime :: val id) return 1; 
dt2 . ParseDateTime ( s2 ) ; 

if (dt2 .GetStatus ( ) != COleDateTime :: valid) return -1; 
if (dtl<dt2) comp=-l; 
else 
{ 

if (dtl>dt2) comp=l; 
else comp=0; 

} 

} 

else if (col == m_ColumnS ImgNum) // numbers 

( 

int nl = atoi ( si ) 
„^ int n2 = atoi(s2) 

if(nl<n2) comp=-l 
ui else 

m { 

^- if(nl>n2) comp=l; 

1^=^ else comp=0; 

else // strings 
flj comp = si . CompareNoCase ( s2 ) ; 

. } 

z, if { ! pDQRCtrl - >m_bSort InlnsreasingOrder ) comp = -comp; 
return comp; 



************************************************** 

* 

*UJ Task-processing threads 

*Vic ****************************************************************** 

UINT DQRControl : :RunTaskQueueThread(LPVOID pCtrl) 

( 

if(!pCtrl) return (UINT) FALSE; 
DQRControl* pDQRC = (DQRControl*) pCtrl; 
while (true) // task-processing loop 
{ 

pDQRC->UpdateTaskView(pDQRC->m_DQR.ExecuteNextTask() ) ; 
Sleep (1000) ; 



bool DQRControl : : S tartTaskQueue ( ) 

{ 

if { !m_UseTaskQueue) return true; // no queues 
return ( Af xBeginThread (RunTaskQueueThread, this, 

THREAD_PRIORITY_LOWEST, m_Cl lent St ackS i ze ) != NULL); 

} 

void DQRControl :: UpdateTaskView (bool reload_list) 

{ 

if (reload_list ) m_TaskView. LoadTasksLi st ( ) ; 
m__TaskView. UpdateClock ( ) ; 

} 
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*^^^^ ******************************* 

Persistent storage 
* 

***************************************************** 
void DQRControl : : SerializeDQRControl (bool is_loading) 

{ 

CString fname = theApp . app_DirectoryData; 

if (m_LocalOnly) return; //fname += CString (" \\locTasks . dat ; 
else fname += CStr ing ( " WremTasks . dat " ) ; 

FILE* fp; 

fp = f open { (char*) (LPCSTR) fname, is_loading ? "r" : "w"); 
if ( ! f p) return; 

: : Serializebool (f p, m_PromptForTaskScheduler , is_loading) ; 
if (m_UseTaskQueue) 

{ 

if( !is_loading ) 

{ 

if (m_DQR . GetTasksSize ( ) >0 && 

Af xMessageBox ( " Save your queued queries?", 
MB_ICONQUESTION | MB_YESNO) == IDYES ) 

{ 

m_DQR . SerializeDQR ( f p, is_loading) ; 

} 

) 

else m_DQR, SerializeDQR ( f p , is_loading) ; 

} 

f close ( fp) ; 

} 

/ **j* ****************************************************************** 

* "'I 

* Task Scheduler 
* 

* ^fz^ir *****************************************************************/ 

vo^d DQRControl :: SetTaskSchedulerPrompt (bool enable) 

{ "If 

m_Prompt ForTaskScheduler = enable; 
f^J // No prompts on local or without queues 

if (m_LocalOnly || 1 m_UseTaskQueue ) m_Prompt ForTaskScheduler=f alse 

}:. 

bool DQRControl : : GetTaskSchedulerPrompt ( ) 
=3 return m_PromptForTaskScheduler ; 
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# i f ! de f ined { AFX_DQRTASKVI EV^^jNCLUDED_ ) 
i^define AFX_DQRTASKVIEW_H_IN^BeD_ 



#if _MSC_VER > 1000 
J^pragma once 

#endif // _MSC_VER > 1000 

// dqrtaskview. h : header file 

// 



///////////////////////////////////////////////////////////////////////////// 
// DQRTaskView dialog 

class DQRTaskView : public CDialog 

{ 

// Construction 
public : 

void UpdateClock ( ) ; 

void LoadTasksList ( ) ; 

bool AttachDQR(DQR* pDDR) ; 

DQRTaskView (CWnd* pParent = NULL); // standard constructor 

-DQRTaskView ( ) { m_ImageLi st . Delete ImageLi st () ; }; 



// Dialog Data 

// { {aFX_DATA( DQRTaskView) 

enum { IDD = IDD_DIALOG_DQRVIEW }; 

CListCtrl m_TasksList; 

// } }AFX_DATA 



/^bverrides 

II ClassWizard generated virtual function overrides 
~ //( (AFX_VIRTUAL (DQRTaskView) 
protected : 

virtual void DoDataExchange { CDataExchange* pDX) ; // DDX/DDV support 
%j // } }AFX_VIRTUAL 

//^: Implement at ion 
p^tected : 

nJ 

// Generated message map functions 
7 ^ //{ {AFX_MSG (DQRTaskView) 
P= virtual BOOL Onini tDialog ( ) ; 
Tj afx_msg void OnDelete() ; 
Wi afx_msg void OnRescheduleTask ( ) ; 

// } }afx_msg 
'H declare_message_map o 

private : 

const static int m_ColumnTasks , m_ColumnArchive , m_ColumnData , 

~- m_ColumnAttempts , m_ColumnSchedule ; 

CImageList m_ImageList; 

DQR* m_pDQR; 

}; 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

II DQRTaskSchedule dialog 

class DQRTaskSchedule : public CDialog 
{ 

// Construction 
public : 

void RunScheduler (DQRTask& t, bool prompt); 

void ScheduleTask (DQRTaskfit t) ; 

DQRTaskSchedule (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { {AFX_DATA(DQRTaskSchedule) 

enum { IDD = IDD_DI ALOG_DQRVI EW_SCHEDULE }; 

CComboBox m_ComboTo; 

CComboBox m_ComboFrom; 

CTime m_EndDate; 

CT ime m_EndT ime ; 

CTime m_StartDate; 

CTime m_StartTime; 
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dqrtaskview. h 10/27/00 



// Overrides 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (DQRTaskSchedule) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
//{ {AFX_MSG (DQRTaskSchedule) 
afx_msg void OnSelChangeComboFrom ( ) ; 
virtual BOOL OnlnitDialog ( ) ; 
afx_msg void OnSelChangeComboTo ( ) ; 
virtual void OnOKO; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

BYTE m_FromIndex, m_To Index; 

}; 

// { {afx_insert_location) ) 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#6Adif // ! defined (AFX_DQRTASKVIEW_H_INCLUDED_) 
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// dqrtaskview. cpp : implem^^^^ ion file 
// 

^include "stdafx.h" 
^include " . . \DCM.h" 
^include "dqrtaskview. h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// DQRTaskView dialog 



const int DQRTaskView 

const int DQRTaskView 

const int DQRTaskView 

const int DQRTaskView 

const int DQRTaskView 



: m_ColumnTasks = 0 ; 
: m_ColumnAr chive = 1; 
:m_ColumnData = 2; 
:m_ColumnAt tempts = 3; 
:m ColumnSchedule = 4; 



DQRTaskView: : DQRTaskView (CWnd* pParent /*=NULL*/) 
: CDialog (DQRTaskView :: IDD, pParent) 

{ 

// ( (AFX_DATA_INIT (DQRTaskView) 

// NOTE: the ClassWizard will add member initialization here 
// } }AFX_DATA_INIT 
m pDQR = NULL; 

void DQRTaskView: :DoDataExchange (CDataExchange* pDX) 

'■■i CDialog: : DoDataExchange ( pDX) ; 
4i 1 1 { {AFX_DATA_MAP (DQRTaskView) 

._f^ DDX_Control (pDX, IDC_LI ST_TASKS , m_TasksLi s t ) ; 
^=1 // } }AFX_DATA_MAP 



BEGIN_MESSAGE_!yiAP (DQRTaskView, CDialog) 
y // { { AFX_MSG_MAP (DQRTaskView) 
ni ON_BN_CLICKED(ID_DELETE, OnDelete) 
'C\ ON_BN_CLICKED( ID_RESCHEDULE, OnRescheduleTask ) 

// } }afx_msg_map 

EliB_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 

// DQRTaskView message handlers 

bool DQRTaskView: : At tachDQR(DQR* pDQR) 

{ 

if(!pDQR) return false; 
m_pDQR = pDQR; 
return true; 

} 

BOOL DQRTaskView :: OnlnitDialog ( ) 

{ 

CDialog: : Onini tOialog () ; 

// TODO : Add extra initialization here 

/* SET m_TasksList : */ 
// 1. Load icons 

if (m_ImageList . m_hImageLi st ==NULL) 
{ 

if ( !m_ImageLi St .Create (16 ,17, ILC_COLOR4 ,3,1)) 
( return FALSE; } 

m_ImageList .Add(theApp.LoadIcon(IDI_TASK_DOWNLOAD) ) ; 
m_ImageList .Add(theApp.LoadIcon(IDI_TASK_SCHEDULE) ) ; 

} 

m_TasksList . Set ImageList ( £tm_ImageLi st , LVSIL_SMALL) ; 



1 



dqrtaskview. cpp 



10/27/00 



Eir^M^olumnTasks, "Task Status", LVCFM 1 



// 2. Load columns 

m_TasksList . InsertColumr^^^olumnTasks, "Task Status", LVCFNI'^^^JTER , 1 10 , 0 ) ; 

m_Ta8ksList . InsertColumn (ff_ColumnArchi ve , "Archive" , LVCFMT_CENTER , 110,0) ; 
m_TasksList . InsertColumn (m_ColumnData , "Data" , LVCFMT_CENTER, 190, 0) ; 
m_TasksList . InsertColumn (m_ColumnAt tempt s , "Attempts" , LVCFMT_CENTER , 6 0 , 0) ; 
m_TasksList . InsertColumn (m_ColumnSchedule , "Schedule" , LVCFMT_CENTER , 80, 0) ; 
m_TasksList . SetColumnWidth (m_ColumnSchedule , LVSCW_AUTOSIZE_USEHEADER) ; 
// 3. Force entire row selection 

m_TasksList . SetExtendedStyle ( LVS_EX_FULLROWSELECT | LVS_EX_SUB ITEM IMAGES 

I LVS_EX_GRIDLINES) ; 

// Display current tasks 
LoadTasksList ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

/*************************************************************************** 
* 

* (Re) Load the list of tasks 
* 

*************************************************************************** 
void DQRTaskView: : LoadTasksLi st ( ) 

{ 

if(!m_pDQR || ! m_TasksList . GetSaf eHwnd ( ) ) return; 

m_TasksList . DeleteAll Items () ; 

char s [128] ; 
^, int nitem, nItemType; 

CString sItemType; 
J| DQRTask t; 

~.! for(int n=m__pDQR->GetTasksSize ( ) -1 ; n> = 0; n--) 

{ 

'-4 if ( !m_pDQR->GetTask (n, t) ) continue; 

// Find out the item type 
if ( t . CanExecuteNow { ) ) 

{ 

nItemType = 0; sItemType = " In Progress..."; 



else 

{ 

L-J if ( t . CanExecuteLater ( ) ) 

nj { 

L nItemType = 1; sItemType = " On Schedule"; 

-i } 

CJ else 

u { 

nItemType = 0; sItemType = " Finishing 

} 

} 

nItem = m_TasksList . InsertI tem(n, sItemType, nItemType); 
m_pDQR- >GetAELocat ion ( t . m_nAE , s) ; 

m_TasksList . Set Item(nltem, m_ColumnArchive , LVIF_TEXT, s, 0, 0, 0, 0); 
sprint f (s, "%s, %s" , t . m_DRdata . Get Pat ientName ( ) , t . m_DRdata . Get Pat lent ID ( ) ) 
m_TasksList . Setltem(nltem, m_ColumnData , LVIF_TEXT, s, 0, 0, 0, 0); 
sprintf(s, "%d", t . GetExec ( ) ) ; 

m_TasksList . Setltem(nltem, m_ColumnAt tempts , LVIF_TEXT, s, 0, 0, 0, 0); 
t . FormatScheduleString ( s , 127) ; 

m_TasksList . Setltem(nltem, m_ColumnSchedule , LVIF_TEXT, s, 0, 0, 0, 0); 
m_TasksList . Set ItemData (nl tem, t . Get ID {) ) ; 

} 

// Prevent horizontal scroll 

m_TasksList . SetColumnWidth (m_ColumnSchedule , LVSCW_AUTOSI ZE_USEHEADER) ; 
UpdateClock( ) ; 

} 

/*************************************************************************** 
* 

* Update clock on the dialog 
* 

***************************************************************************/ 
void DQRTaskView : :UpdateClock ( ) 
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if ( !GetSafeHwnd( ) ) reti^^ 
// Show current date anc^^He 
CTime tm = CTime : : GetCurrentTime ( ) ; 
GetDlgItem( IDC_CURRENT) 

->SetWindowText (tm. Format ( "%A, %d %B %Y, %Hh %Mm %Ss")); 

} 
* 

* Delete selected tasks 
* 

*********************************************************************** 
void DQRTaskView: :OnDelete ( ) 

{ 

if(!m_pDQR) return; 

POSITION pos = m_TasksList -GetFirstSelectedl temPosition ( ) ; 
if (pos == NULL) return; // nothing selected 
int sel=-l; 
UINT taskID; 
while (pos) 

{ 

sel = m_TasksList .GetNextSelectedltem(pos) ; 
if(sel<0) continue; 

taskID = m_TasksList -GetltemData ( sel) ; 
m_pDQR->RemoveTaskID ( taskID) ; 

} 

LoadTasksList { ) ; 

} 



. f ^ 

/ *=^* ************************************************************************ 

* 

* Reschedule selected tasks 

* i 

* * iTie ***********************************************************************/ 

vo^d DQRTaskView: : OnRescheduleTask { ) 

{ w 

fil if(!m_pDQR) return; 

POSITION pos = m_TasksList . GetFirstSelectedl temPosition 0 ; 
^ if (pos == NULL) return; // nothing selected 

int sel=-l; 
Pi UINT taskID; 
={i DQRTask* pTask; 
f^=f DQRTaskSchedule dts; 

if (dts.DoModal () != IDOK) return; 

while (pos) 

'~' sel = m_TasksList .GetNextSelectedltem (pos) ; 

if (sel<0) continue; 

taskID = m_TasksList .GetltemData ( sel) ; 
pTask = m_pDQR->GetTaskPtrFromID (taskID) ; 
if (pTask) dts . ScheduleTask ( *pTask) ; 

} 

LoadTasksList ( ) ; 

} 




///////////////////////////////////////////////////////////////////////////// 
// DQRTaskSchedule dialog 

DQRTaskSchedule: : DQRTaskSchedule (CWnd* pParent /*=NULL*/) 
: CDialog (DQRTaskSchedule :: IDD, pParent) 

{ 

// { {AFX_DATA_INIT (DQRTaskSchedule) 
m_EndDate = CTime :: GetCurrentTime () ; 
m_EndTime = CTime :: GetCurrentTime () ; 
m_StartDate = CTime :: GetCurrentTime () ; 
m_StartTime = CTime :: GetCurrentTime () ; 
m_At tempts - 1; 
//} }AFX_DATA_INIT 
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m FromIndex=m Tolndex = 0;i 



void DQRTaskSchedule : : DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
/ / { { AFX_DATA_MAP ( DQRTa skSchedul e ) 
DDX_Control (pDX, IDC_COMBO_TO , m_ComboTo) ; 
DDX_Control {pDX, IDC_C0MB0_FROM , m_ComboFrom) ; 
DDX_DateTimeCtrl (pDX, IDC_END_DATE , m_EndDate) ; 
DDX_DateTimeCtrl (pDX, IDC_END_TIME , m_EndTime) ; 
DDX_DateTimeCtrl (pDX, IDC_START_DATE , m_StartDate) ; 
DDX_DateTimeCtrl (pDX, IDC_START_TIME , m_StartTime ) ; 
DDX_Text (pDX, IDC_ATTEMPTS , m_Attempt s) ; 
DDV_MinMaxUInt (pDX, m_At tempt s , 1, 5) ; 
// } }AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (DQRTaskSchedule, CDialog) 
//{ {AFX_MSG_MAP (DQRTaskSchedule) 

ON_CBN_SELCHANGE ( IDC_COMBO_FROM , OnSe iChangeComboFrom) 
ON_CBN_SELCHANGE ( IDC_COMBO_TO, OnSelChangeComboTo) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 

//_^DQRTaskSchedule message handlers 

vcOJd DQRTaskSchedule: : OnSelChangeComboFrom ( ) 

,^=. m_FromIndex = m_ComboFrom . GetCurSel ( ) ; 
CString txt ; 

m_ComboFrom. GetWindowText ( txt ) ; 
%j int sw = (txt=="specif ic time" ? SW_NORMAL : SW_HIDE) ; 
jl GetDlgItem(IDC_START_DATE) ->ShowWindow(sw) ; 

GetDlgItem(IDC_START_TIME) ->ShowWindow(sw) ; 

vMId DQRTaskSchedule: : OnSelChangeComboTo () 

7_ m_ToIndex = m_ComboTo . GetCurSel () ; 
CString txt ; 

m_ComboTo . GetWindowText ( txt ) ; 
S3 int sw = (txt=="specif ic time" ? SW_NORMAL : SW_HIDE) ; 

GetDlgItem( IDC_END_DATE) ->ShowWindow(sw) ; 
"2^ GetDlgItem(IDC_END_TIME) - >ShowWindow ( sw) ; 

b56l DQRTaskSchedule: : Onini tDialog () 

{ 

CDialog: rOnlnitDialog ( ) ; 

m_ComboFrom. SetCurSel (m_FromIndex) ; OnSelChangeComboFrom ( ) ; 
m_ComboTo . SetCurSel (m_ToIndex) ; OnSelChangeComboTo ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void DQRTaskSchedule : :OnOK ( ) 
{ 

UpdateData(TRUE) ; 
CDialog : :OnOK( ) ; 

} 



* 

* Write schedule information into a task 
* 

****************************************************** 
void DQRTaskSchedule :: ScheduleTask (DQRTask &t) 

( 

CTime tm; 

// 1. Find out start date/time 
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a(^^^'om the listbox, 
it^^Bwas empty 



// No choice was mac 
// and the edit cont) 
m_List lndex=0 ; 
m_AEComboList . SetCurSel { 0) ; 
UpdateAllFields (true) ; 

} 

else if ( (n=m_AEComboList . FindStringExact (-1, info) ) != CB_ERR) 
( 

// The edited string already exists 
m__Li St Index = n; 
m_AEComboList . SetCurSel (n) ; 
UpdateAllFields (true) ; 

} 

else 

{ 

// Totally new string was entered 

m_AEarray->Get (m_List Index) . SetLocation( (char*) (LPCSTR) info) ; 
m_AEComboList . SetCurSel (m_Li st Index) ; 

} 



/**************************************************************************** 

*■ 

* Buttons 
*■ _ 

* 4*!* *****************************************************************^ 
vcaiSd AEOptions_Dialog : :OnOK() 

~- // TODO : Add extra validation here 

UpdateAllFields (false) ; 

OnCloseupComboAeLi st ( ) ; 
'.i-, CDialog: :OnOK() ; 

vgfd AEOptions_Dialog : :OnAENew() 

3 ApplicationEntity a("<New AE Title>", 255,255,255,255); 
m_AEarray- >Add ( a) ; 

ResetAEList (m AEarray- >GetUpperBound { ) ) ; 

}P 

v^id AEOptions_Dialog : :OnAeClone() 

{si 

UpdateAllFields (false) ; 
LJ ApplicationEntity a = m_AEarray- >Get (m_Li st Index) ; 
CString s; s . Format (" %s_Copy" , a . ae_Ti tie) ; 
s = s . Lef t (min ( s . GetLength ( ) , 16 ) ) ; 
a.SetTitle( (char*) (LPCSTR) (s) ) ; 
m_AEarray- >Add (a) ; 

ResetAEList (m_AEarray->GetUpperBound ( ) ) ; 

} 

void AEOptions_Dialog : : OnAEDelete ( ) 

{ 

int ind = m_AEComboList . Ge tCurSel ( ) ; 
if(ind == ( int ) m_AEarray- >GetLocal Index 0 ) 

{ 

Af xMessageBox ( " You cannot delete local AE" , 
MB_ICONEXCLAMATION|MB_OK) ; 

return; 

} 

if ( ind>= ( int ) (m_AEarray- >GetSize ( ) ) || ind<0) return; 
m_AEarray- >RemoveAt ( ind) ; 
if(ind>0) ind--; 
ResetAEList (ind) ; 

} 

/********★★************************************************************** 

*■ 

* Totally reset AE list 
*• 

****************************************** ********************** ********* 
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void AEOpt ions_Dialog :: Rese 




St 



(int new_select ion) 




m AEComboList . ResetCont 



CString loc; 

for(UINT i = 0; i<m_AEarray->GetSize ( ) ; i + + ) 



loc=CString (m_AEarray- >Get ( i ) . ae_Locat ion) ; 

i f ( i = =m_AEarray- >Get Local Index { ) && loc . Find { "< Local > " ) < 0 ) 



loc=CString ( " <Local> ")+loc; 



m_AEComboList . InsertString ( i , loc) ; 



if (new_selection>= (int) (m_AEarray->GetSize () ) || new_select ion<0) new_select ion=0 
m_Li3tIndex=new_se lection; 
m_AEComboList . SetCurSel (new_select ion) ; 
UpdateAllFields (true) ; 



Update selection index 



void AEOptions_Dialog : : OnSelchangeComboAeLi st () 



m Listlndex=m AEComboLi st . GetCurSel ( ) ; 



C5 

m 

Ci 




* 




s 
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#if !def ined{AFX_DQRCONTROL _^^^CLUDED_) 
#define AFX_DQRC0NTR0L_H_In3BRd_ 

#include " . . \Controls . h" // Added by ClassView 
#include "dqr taskview . h" // Added by ClassView 
#if _MSC_VER > 1000 
^pragma once 

#endif // _MSC_VER > 1000 
// dqrcontrol. h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// DQRSearch dialog 

class DQRSearch : public CDialog 

{ 

// Construction 
public : 

void WritelntoDICOMRecord (DICOMRecordfic dr) ; 

DateTimeSegment* GetBirthDatePtr ( ) ; 

DQRSearch (CWnd* pParent = NULL) ; // standard constructor 
// Dialog Data 

//{ {AFX_DATA (DQRSearch) 
enum { IDD = IDD_DIALOG_DQRSEARCH }; 
CString m__Pat lent ID ; 
CString m_Pat ientName ; 
CString m_Acce3sionNumber ; 
CString m_StudyID; 
CString m_Study InstUID ; 
^- CString m_Modality; 
4 J // } }AFX_DATA 

yi 

/)^=^Over rides 

"■J // ClassWizard generated virtual function overrides 
Ji //{ (AFX_VIRTUAL (DQRSearch) 
.f^ protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
nJ // } }AFX_VIRTUAL 

/s/j. Implementation 
p^ptected : 

l=J // Generated message map functions 
nJ // { (AFX_MSG (DQRSearch) 

virtual BOOL Onini tDialog () ; 
J? virtual void OnOK ( ) ; 

afx_msg void OnButtonAdvancedOrBasic () ; 
Tj //})AFX_MSG 

DECLARE_MSSSAGE_MAP { ) 
private : 

bool m_Advanced; 

DateTimeControl m_BirthDateControl , m_BirthTimeControl , 

m_StudyDateControl , m_StudyTimeControl ; 

void SizeDialogArea ( ) ; 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 

II DQRControl dialog 

class DQRControl : public CDialog 
{ 

// Construction 
public : 

void SetTaskSchedulerPrompt (bool enable) ; 

void LoadArchiveList (UINT selection = 0) ; 

void DropOn(CWnd* wdrag, CWnd* wdrop) ; 

void UpdateAf terFind (bool f ind_success) ; 

void Set InterruptMode (bool interrupt) ; 

void SetPriority (BYTE priority) { m_DQR . SetPriority (priori ty) ; } 

void ShowTaskView( ) { if (HasTaskQueue ( ) ) m_TaskView . DoModal ( ) ; 

bool DisplayOverControl ( int controlID, CWnd *parent) ; 
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bool 
bool 

bool 
BYTE 



GetTaskSche 
CreateDQRCo: 



• 



HasTaskQueue ( ) 
GetPriority ( ) 



Prompt ( ) ; 

(DICOMViewLog* ptrCl ientLog , 
bool local_only) ; 

{ return m_UseTaskQueue 
{ return m_DQR . GetPriority { ) 



tabase* ptrDB 
; } 



DQRControl (CWnd* pParent = NULL) ; 
-DQRControl ( ) ; 



// constructor 
// destructor 



// Dialog Data 

//{ {AFX_DATA 

enum { IDD = 

CAnimateCtrl 

CButton 

CButton 

CButton 

CButton 

CListCtrl 

CComboBox 

CComboBox 

// } }AFX_DATA 



(DQRControl) 
I DD_D I ALOG_DQRCONTROL 
m_AnimNetwork; 
m_But tonSearch; 
m_But tonCancel ; 
m_But tonMoveTo ; 
m_ButtonGet ; 
m_Re su 1 1 s L i s t ; 
m_MoveArchiveLi st ; 
m ArchiveList; 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (DQRControl) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

„ // } }afx virtual 

Q 

/i|J Implement at ion 
piaetected : 

void OnHeaderClicked(NMHDR* pNMHDR, LRESULT* pResult); 

// Generated message map functions 
^"^J //{ {AFX_MSG (DQRControl) 
J^k virtual BOOL OnlnitDialog () ; 
II afx_msg void OnButtonStar tSearch ( ) ; 
2^ afx_msg void OnButtonGet ( ) ; 
OJ afx_msg void OnButtonMoveTo ( ) ; 

^ afx_msg void OnDoubleClickListResult s (NMHDR* pNMHDR, LRESULT* pResult); 

i, afx_msg void OnSelChangeArchiveLi st { ) ; 

!ir afx_msg void OnSelChangeMoveArchiveList ( ) ; 

afx_msg void OnBut tonCancel {) ; 
fIJ afx_msg void OnBeginDragListResults (NMHDR* pNMHDR, LRESULT* pResult); 

afx_msg void OnBut tonDelete () ; 

//}}AFX_MSG 

\sS afx_msg void OnOk ( ) (}; // ignore when Enter is pressed 

p afx_msg bool OnClickLi stResults (NMHDR* pNMHDR, LRESULT* pResult); 

afx_msg void OnRightCl ickLi stResult s (NMHDR* pNMHDR, LRESULT* pResult); 

DECLARE_MESSAGE_MAP ( ) 
private : 

bool 

bool 

bool 

char 

int 

int 

int 

const static int 



const static UINT 
const static DWORD 
HWND 

CCr it icalSect ion 

Applicat ionEnt ityList * 

CImageLi st 

DQRSearch 

DQR 

DQRTaskView 

DQRTaskSchedule 

enum 



m_LocalOnly, m_UseTaskQueue , m_Prompt ForTaskScheduler 
m_PreloadData ; 
m_bSort InlnsreasingOrder ; 
m_MoveDest inat ionAE [20] ; 
m_nS or t Co 1 umn ; 
m_Resul t sListSelection [5] ; 
m_DOB index ; 

m_ColumnPname , m_ColumnPid 
m_ColumnMod, m_ColumnSDate 
m_ColumnBDate , m_ColumnBTime , 
m_Cl ient Stacks ize ; 
m_ParentList I temData ; 
m_HWND ; 

m_RunClientThread_CritSect ion ; 
m_AEarray ; 
m_ImageLi st ; 
m_SearchDialog ; 
m_DQR ; 
m_TaskView; 
m_TaskScheduler ; 



m_Co 1 umnAnum , 
m_ColumnSTime , 

m_ColumnS ImgNum; 



echo, 
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find, find_root, fi 
get_index, move_in 

} 

void 
void 
void 
void 
void 
void 

static void 

bool 
bool 
bool 
bool 
bool 

static bool 

BOOL 
int 
int 

static int 
static int CALLBACK 



Stat i 
Stat i 
Stat i 
O CStri 



C UINT 
C UINT 
c UINT 
ng 



evious, find_next, 
i^equestedClient Service ; 



Serial izeDQRControl (bool is_loading) ; 
EnableCancel ( ) ; 

UpdateTaskView (bool reload_list) ; 
DropOn(CWnd* win); 
TestArchiveConnect ion ( ) ; 
FindAll ( ) ; 

MarkAEServerStatuses {ApplicationEnt i tyList *ael , 

UINT ae_index, bool status); 
LoadFoundList {bool erase); 
StartAllServers ( ) ; 
StartAEServer (UINT ae_index) ; 
StartTaskQueue ( ) ; 
RunClientThread ( ) ; 

GetLocallP (CString& sname, BYTE& ipl,BYTE& ip2 , 

BYTE& ip3, BYTES ip4 ) ; 
UpdateData( BOOL bSaveAndValidate=TRUE) ; 
GetThreadPriority ( ) ; 

GetResul tsListSelect ion ( int& sel, int& dcm_index) ; 
DQRCtrlCallbackFilter (void* dqrctrl, UINT stepnum=0, 

UINT id=0) ; 
Comparel terns (LPARAM 1 Par ami, 

LPARAM lParam2, LPARAM iParamSort); 
StartQRServer (LPVOID index); 
StartQRClient (LPVOID ptrDQRControl ) ; 
RunTaskQueueThread (LPVOID pCtrl) ; 
GetLevelPrompt (bool higher); 



#MJdif // !def ined(AFX_DQRCONTROL_H_INCLUDED_) 



nj 
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// 
// 



dqrcontrol . cpp : impleme 



on file 



^include "stdafx.h" 
$Jinclude " . , \DCM.h" 
^include " dqrcontrol , h" 
^include " Server. h" 
^include <process.h> 



#ifdef _DEBUG 
itdefine new DEBUG_NEW 
Sundef THIS_FILE 

static char THIS_FILE[] = FILE ; 

Sendif 

///////////////////////////////////////////////////////////////////////////// 
// DQRSearch dialog 

DQRSearch: :DQRSearch{CWnd* pParent /*=NULL*/) 
: CDialog (DQRSearch :: IDD, pParent) 

{ 

//{ {AFX_DATA_INIT (DQRSearch) 
m_PatientID = _T ( " " ) ; 
m_PatientName = _T ( " " ) ; 
m_AccessionNumber = __T ( " " ) ; 
m_StudyID = _T ( " " ) ; 
m_StudyInstUID = _T ( " " ) ; 
m_Modality = _T ( " " ) ; 
// } }AFX_DATA_INIT 
m_Advanced = false; 

m BirthDateControl , SetDateFormat ( ) 



m_BirthDateControl , SetTitle ( "Birth Date: 
dl m_BirthTimeControl . SetTimeFormat ( ) ; 

m_BirthTimeControl . SetTitle ( "Birth Time: 

m_StudyDateControl . SetDateFormat ( ) ; 

m_StudyDateControl . SetTitle ( "Study Date: 
%J m_StudyTimeControl , SetTimeFormat ( ) ; 

m StudyTimeControl . SetTitle ( "Study Time: 



void DQRSearch : :DoDataExchange (CDataExchange* pDX) 

CDialog: :DoDataExchange (pDX) ; 
Q I / { {AFX_DATA_MAP (DQRSearch) 

nj DDX_Text (pDX, IDC_PATIENT_ID , m_Pat lent ID) ; 

DDX_Text (pDX, IDC_PATIENT_NAME , m_PatientName) ; 

DDX_Text (pDX, IDC_STUDY_ACCNUM , m_AccessionNumber ) 
CJ DDV_MaxChars (pDX , m_AccessionNumber , 16); 
ft DDX_Text (pDX, IDC_STUDY_ID , m_StudyID) ; 

DDV_MaxChars (pDX, m_StudyID, 16); 

DDX_Text (pDX, IDC_STUDY_INSTUID, m_S tudy InstUID ) ; 
DDV_MaxChars (pDX, m_StudyInstUID, 64) ; 
DDX_Text (pDX, IDC_MODALITY , m_Modality); 
DDV_MaxChars (pDX, m_Modality, 3); 
// } }AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (DQRSearch, CDialog) 
//{ {AFX_MSG_MAP (DQRSearch) 

ON_BN_CL I CKED ( I DC_BUTTON_ADV , OnBu 1 1 onAdvancedOr B a sic) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// DQRSearch message handlers 

BOOL DQRSearch : :OnInitDialog ( ) 

{ 

CDialog: : Onini tDialog ( ) ; 

// Place DateTimeSegment controls 

if ( !m_BirthDateControl .DisplayOverControl ( IDC_BIRTHDATE , this) ) 
return FALSE; 

if ( !m_BirthTimeControl . DisplayOverControl ( IDC_BIRTHTIME , this) ) 
return FALSE; 
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if ( !m_StudyDateControl . 

return FALSE; 
if ( !m_StudyTimeControl . 

return FALSE; 



ayOverControl ( IDC_STDATE, this) jj 
layOverControl (IDC_STTIME, this) ) 



SizeDialogArea ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



* Validating input on exit 

*********************************************************** 

void DQRSearch: :OnOK( ) 

{ 

UpdateData(TRUE) ; 

m_BirthDateControl . UpdateData (TRUE) ; 
m_BirthTimeControl . UpdateData (TRUE) ; 
CDialog: :OnOK() ; 

} 
* 

* Switch between advanced and basic parameters 
* 

************************************************* 

void DQRSearch :: SizeDialogArea ( ) 

{□ 

Jj CWnd* pWnd = GetDlg I tern ( IDC_BUTTON_ADV) ; 
^\ if(!pWnd) return; 
if(!m Advanced) 

ai { - 

-^J CRect rc, rcb; 

.fi pWnd- >GetWindowRect (rcb) ; 

GetWindowRect (rc) ; 
Jj //ScreenToClient ( rc) ; 

rij rc. bottom = rcb . bot tom+1 0 ; 

MoveWindow (rc) ; 
r, pWnd- >SetWindowText ( "Advanced >>"); 

Q else 

m { 

Ij^ CWnd* pWnd2 = GetDlg I tern ( IDC_STTIME) ; 

y- if(!pWnd2) return; 

£J CRect rc, rcb; 

pWnd2- >GetWindowRect (rcb) ; 
~^ GetWindowRect (rc) ; 

//ScreenToClient (rc) ; 

rc. bottom = rcb . bot tom+1 0 ; 

MoveWindow (rc) ; 

pWnd- >SetWindowText ( "Basic <<") ; 

} 

} 

void DQRSearch: : OnBut tonAdvancedOrBasic ( ) 

{ 

m_Advanced = !m_Advanced; 
SizeDialogArea ( ) ; 

} 

* 

* Access DateTimeSegments 
* 

DateTimeSegment * DQRSearch: : GetBirthDatePtr ( ) 

{ 

return & (m_BirthDateControl . GetDateTimeSegment ( ) ) ; 

} 

* 

* Fill DICOMRecord with the data from this dialog 
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■k * * * * 



void 

{ 



********************** •tm^^m- ******************************* 
DQRSearch: : WritelntoDICOMRecord (DICOMRecord ficdr) 

if(!m Advanced) // baseline search 



m 



'k-k-kifkie-kitf 



{ 



dr . SetRecord( (char*) ( LPCSTR) m_Pat ient ID , 
(char*) (LPCSTR)m_PatientName, 
& (m_BirthDateControl . GetDateTime Segment ( ) ) , 
fit (m_BirthTimeControl . GetDateTimeSegment ( ) ) , 
NULL, 

NULL, 



NULL, 
NULL, 
NULL, 
NULL, 



NULL, 
NULL, 
NULL, 
NULL, 



NULL, 
NULL) ; 



Ise 



dr . SetRecord ( (char*) 
(char*) (LPCSTR)m_ 
£c (m_BirthDateCont 
Sc (m_BirthTimeCont 
(char*) (LPCSTR)m_ 
(char*) (LPCSTR)m_ 
(char*) (LPCSTR)m 
fit (m_StudyDateCont: 
fic (m_StudyTimeCont 
NULL, (char*) (LPC 
NULL, NULL, NULL) 



(LPCSTR) m_PatientID, 
PatientName , 

rol . GetDateTimeSegment ( ) ) 
rol . GetDateTimeSegment ( ) ) 
StudylnstUID, 
StudylD, 

AccessionNumber , NULL, 
rol . GetDateTimeSegment ( ) ) 
rol . GetDateTimeSegment ( ) ) 
STR)m_Modality, NULL, 



/^jDQRControl . cpp 

const int DQRControl 

c^fist int DQRControl 

delist int DQRControl 

cgjist int DQRControl 

const int DQRControl 

const int DQRControl 

const int DQRControl 

const int DQRControl 

const int DQRControl 

const UINT 

const DWORD 



implementation file 



ColumnPname 
ColumnPid = 
ColumnBDate 
ColumnSDate 



0; 

2; 
3; 
4 ; 



:m_ColumnSTime 
:m_ColumnMod = 5; 
:m_ColumnSImgNum = 6; 
: m_ColumnAnum = 7; 
: m_ColumnBTime = 8; 
DQRControl : :m_ClientStackSize = 1000 ; 
DQRControl : : m_ParentList I temData=99 9 999 ; 



\ 



///////////////////////////////////////////////////////////////////////////// 
// DQRControl dialog 

DQRControl : :DQRControl(CWnd* pParent /*=NULL*/) 
CDialog (DQRControl : :IDD, pParent) 



( 



// { {AFX_DATA_INIT (DQRControl) 
// } }AFX_DATA_INIT 
m_HWND = NULL; 
m_AEarray = NULL ; 

m_LocalOnly=f alse ; m_UseTaskQueue=true ; // Queue tasks on remote 

m_PromptForTaskScheduler = true; // Prompt for task scheduler on remote 

m_PreloadData = false; 

m_bSort InlnsreasingOrder = true; 

m nSortColumn = 0; 



DQRControl : : -DQRControl ( ) 
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array) 



m_ImageLi8t . Delete Image 
if ( ! m_LocalOnly && m_AEar?ay) 

{ 

m_AEarray- >SetCurrent Index (m_DQR.GetCurrentAEIndex ( ) ) ; 

} 

SerializeDQRControl ( false) ; 



void DQRControl : : DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
//{ {AFX_DATA_MAP (DQRControl) 

DDX_Control (pDX, IDC_ANIMATE_NETWORKING, m_AnimNetwork) ; 
DDX_Control (pDX, IDC_BUTTON_START_SEARCH , m_But tonSearch) ; 
DDX_Control(pDX, IDC_BUTTON_CANCEL , m_But tonCancel ) ; 
DDX_Control (pDX, IDC_BUTTON_MOVETO , m_But tonMoveTo) ; 
DDX_Control (pDX, IDC_BUTTON_GET , m_But tonOet ) ; 
DDX_Control (pDX, IDC_LIST_RESULTS , m_Result sLi st ) ; 
DDX_Control (pDX, IDC_COMBO_MOVEARCHIVE , m_MoveArchi veLi s t ) ; 
DDX_Control (pDX, IDC_COMBO_ARCHIVE , m_ArchiveLi s t ) ; 
// } }AFX_DATA_MAP 

} 



E s3 



B EG I N_ME S S AGE_MAP ( DQRCon trol, CDialog) 
/ / { { AFX_MSG_MAP ( DQRCon t r o 1 ) 

ON_BN_CLICKED ( IDC_BUTTON_START_SEARCH , OnBut tonSt art Search) 
U ON_BN_CLICKED(IDC_BUTTON_GET, OnButtonGet) 
Jj ON_BN_CLICKED ( IDC_BUTTON_MOVETO , OnBut tonMoveTo ) 

gi ON_NOTIFY (NM_DBLCLK, IDC_LI ST_RESULTS , GnDoubleCl ickLi stRe sul t s ) 
'il ON_CBN_SELCHANGE ( IDC_COMBO__ARCHI VE , OnSelChangeArchiveList ) 

ON_CBN_SELCHANGE ( IDC_COMBO_MOVEARCHI VE , OnSe iChangeMoveAr chiveLi s t ) 

ON_BN_CLICKED(IDC_BUTTON_CANCEL, OnBut tonCancel) 

ON_NOTIFY (LVN_BEGINDRAG, IDC_LI ST_RESULTS , OnBeginDragLi stResult s) 
ON_NOTIFY (NM_CLICK, IDC_L I ST_RESULTS , OnCl ickLi StRe sul t s ) 
ON_NOTIFY (NM_RCLICK, IDC_LI ST_RESULTS , OnRightCl ickListResult s ) 
ON_BN_CLICKED ( IDC_BUTTON_DELETE , OnBut tonDelete ) 
// } }AFX_MSG_MAP 
ON_COMMAND(IDOK, OnOk) 
ON_COMMAND(IDCANCEL, OnOk) 
4=J 0N_NOTIFY(HDN_ITEMCLICKA, 0, OnHeaderCl icked ) // column sort 
nj ON_NOTIFY(HDN_ITEMCLICKW, 0, OnHeaderCl icked ) // column sort 
Eiip_MESSAGE_MAP ( ) 

m/////////// /////////////////////////////////////////// //////////////////// 

/SI DQRControl message handlers 
* 

* Display the control 
* 

************************************************************** 
bool DQRControl :: DisplayOverControl ( int controlID, CWnd *parent) 

{ 

if(!parent || IcontrolID) return false; 
CWnd* pWnd = parent - >GetDlgI tem ( control ID) ; 
if (pWnd) 
{ 

CRect rc; 

pWnd- >GetWindowRect (rc) ; 
parent->ScreenToClient (rc) ; 
this- >Create { IDD, parent); 

this- >SetWindowPos (pWnd, rc . lef t , rc . top, 0,0, SWP_NOSIZE | SWP_SHOWWINDOW) 
return true; 

} 

return false; 

} 

/★************************************************************************** 
* 

* Get string for the current QR level 
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*************************** 
CString DQRControl : : GetLeve 

( 

CString prompt; 
BYTE lev = m_DQR . GetLevel ( ) ; 
if ( (higher) 
{ 

if (lev == DICOMRe 
else if (lev == DI 



******************************* 



ipt(bool higher) 



*******> 



cord: : LevelPat lent ) 
COMRecord: :LevelStudy) 



else ifdev == DI 
else if (lev == DI 
else prompt = 



COMRecord 
COMRecord 



LevelSeries) 
Level Image) 



prompt 
prompt 
prompt 
prompt 



" PATIENT" , 
"STUDY" ; 
"SERIES" ; 
"IMAGE" ; 



} 



) 

else 

{ 

if (m_DQR. IsOnRootLevel ( ) ) prompt=" Start new search"; 
else if (lev == DI 
else if (lev 
else if (lev = = DI 
else prompt = " " 

} 

return prompt; 



COMRecord 
COMRecord 
COMRecord 



LevelStudy) prompt = " Go to patient level" 
LevelSeries) prompt = " Go to study level"; 
Levellmage) prompt = " Go to series level"; 



/*************************************************************************** 
* 

* (Re) Load the list of archives 
* 

***************************************************************************/ 
vbsd DQRControl :: LoadArchiveList (UINT selection /*=0*/) 

m 

if ( ! m_AEarray) return; 
CString loc; 

*=^' m_ArchiveList . ResetContent ( ) ; m_MoveArchiveList . ResetContent { ) ; 
'"^J for(UINT i = 0; i<m_AEarray- >GetSize ( ) ; i + +) 

loc = CStr ing (m_AEarray- >Get ( i ) . ae_Locat ion) ; 

if (i = =m_AEarray->GetLocalIndex 0 loc , Find (" <Local >")< 0 ) 



loc = CString (" <Local> ")+loc; 

) 

m_ArchiveList . Insert String ( i , loc) ; 

m MoveArchiveList . Insert String ( i , loc) ; 



_f if (m_LocalOnly) selection = m_AEarray- >GetLocalIndex ( ) ; 
=J m_DQR . SetCurrentAEIndex ( select ion) ; 
Q select ion=m_DQR . GetCurrentAEIndex () ; 

m_ArchiveList . SetCurSel ( selection) ; 

if ( select ion>0 ) selection=0; else selection=l; 

m_MoveArchiveList . SetCurSel (selection) ; 

if (m_LocalOnly) 

{ 

m_ArchiveList . GetWindowText (loc) ; 
loc +- CString {" archive");; 

GetDlgItem( IDC_ARCHIVE_LOCATION) - > Se tWindowText (loc ) ; 
m_ArchiveList . ShowWindow ( SW_HIDE) ; 

} 

UpdateData (FALSE) ; 

} 

/*************************************************************************** 



* On new selection in the archive list 
* 

***************************************************************************/ 
void DQRControl: : OnSelChangeArchiveLi st () 

{ 

if ( !m_AEarray && m_LocalOnly) return; 
UINT n=m_ArchiveList .GetCurSel () ; 

if (n! =m_DQR. GetCurrentAEIndex ( ) ) LoadFoundLi st ( true) ; 

if { !m_DQR. SetCurrentAEIndex (n) ) 

{ 

UINT m = m_DQR.GetCurrentAEIndex() ; 
if {m>n) 
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{ 

m=0 ; 

m_DQR . SetCurrent^Slndex ( 0 ) ; 

} 

m_ArchiveLi9t . SetCurSel (m) ; 
LoadFoundList ( true) ; 

} 

TestArchiveConnect ion { ) ; 

// Make sure current archive is different from "Move to" archive 

n=m_ArchiveLi3t . GetCurSel ( ) ; 

if (m_MoveArchiveList . GetCurSel { ) == (int ) n) 

{ 

if(n>0) n=0; else n=l; 

m MoveArchiveList . SetCurSel (n) ; 



void DQRControl : : OnSelChangeMoveArchiveLi st ( ) 



if ( ! m_AEarray) return; 

int n = m_ArchiveList . GetCurSel {) ; 

if (n>= ( int ) m_AEarray- >Ge t Size ( ) ) 

{ 
} 

il 
{ 



LoadArchiveList { ) ; return; 

} 

if (m MoveArchiveList . GetCurSel ( ) == n) 



CStrmg s; 

m_ArchiveList . GetWindowText (s) ; 
CString info; 

CJ inf o . Format ( "You are currently connected to %s\n" 

J% " and cannot use it as move destination.", s) ; 

if AfxMessageBox(info, MB_ICONINFORMATION) ; 

'^j if(n>0) n=n-l; else n=l; 

tf? m_MoveArchiveList . SetCurSel (n) ; 

} 

/ ********************************************************************** 
*1 * (Re) Load the list of found DICOM data objects 

*r 

******************************************************************** 

t^l)l DQRControl :: LoadFoundList (bool erase) 

if ( ! GetSaf eHwnd 0 ) return false; 
CString label; 
O CString lev=GetLevel Prompt ( fal se ) ; 

£l CString res_lev=CStr ing ( " on " ) +lev+CStr ing ( " level"); 
lev . MakeLower ( ) ; 

m_ButtonGet . EnableWindow { FALSE) ; 

label = m_LocalOnly ? "Open " : "Download "; 

m_ButtonGet . SetWindowText ( label+lev) ; 

m_But tonMoveTo . EnableWindow ( FALSE) ; 

label = m_LocalOnly ? "Upload " : "Move "; 

m_ButtonMoveTo. SetWindowText (label+lev+ CString ( " to: ")); 
m_ResultsList , DeleteAllI tems ( ) ; 
CString res ( "Result s : no matches"); 
if (erase) 

{ 

m_DQR . ClearFound ( ) ; 
m_ResultsLi St Select ion [0] =1 ; 
m_ResultsLi St Select ion [1] =1 ; 
m_ResultsLi St Select ion [2] =1 ; 
m_Resul tsLi 9 1 Select ion [3] =1 ; 

GetDlgl tern ( IDC__RESULTS_FRAME) - >SetWindowText ( res+res_lev) 
UpdateData (FALSE) ; 
return true; 

) 

int nFound = m_DQR . Get FoundCount ( ) ; 

m_ResultsLi3t . Set ItemCount (nFound+1 ) ; 
GetDlgItem( IDC_STATIC_PROGRESS) -> SetWindowText ( 

nFound>0 ? "Loading data. 

char s [64 ] ; 
int nitem, nl ; 
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CString str; 
DICOMRecord dr; 
f or (nI=nFound- 1 ; nl>= 

{ 

m_DQR . Ge t FoundRe c or d ( dr , n I ) ; 
// Patient name 

str=CString (dr .GetPatientName {) ) ; str . Replace (' ^ *, ' Mi- 
ni tem=m_ResultsList . Insert I tern (nl , str , max ( 1 , m_DQR . Get Level 0 ) -1) ; 
// Patient ID 

m_ResultsList . SetItem{nItem,m_ColumnPid, LVIF_TEXT, 

dr . Get Patient ID ( ) ,0,0,0,0) ; 
// Accession number 

m_ResultsList . Set I tern (nl tern, m_ColumnAnum, LVIF_TEXT, 

dr . GetAccessionNumber ( ) ,0,0,0,0) ; 
// Modality 

m_ResultsList . Set I tem (nl tern, m_ColumnMod , LVI F_TEXT/ * | LVIF_IMAGE*/ , 

dr .GetModality ( ) ,0,0,0,0) ; 
// Study Date 

dr . FormatStudyDate ( s, 64 , false) ; 

m_ResultsList . Set I tem ( nl tem, m_ColumnSDate , LVIF_TEXT, s, 0 , 0 , 0 , 0) ; 
// Study Time 

dr , FormatStudyTime ( s, 64 , false) ; 

m_ResultsList . Set I tem (nl tem , m_ColumnSTime , LVIF_TEXT, s, 0 , 0 , 0 , 0) ; 
// Birth Date 

dr. Forma t Pat ientBirthDate ( s , 64 , false) ; 

m_ResultsList . Set I tem (nl tem , m_ColumnBDate , LVIF_TEXT, s, 0 , 0 , 0 , 0) ; 
// Number of study related images 

m_ResultsList . Set I tem (nl tem, m_ColumnSImgNum, LVI F_TEXT , 
dr. Get Study ImagesNum( ) ,0,0,0,0) ; 
LJ // Associate array index with item data, to allow for list sorting 

J3 m_ResultsList . Set ItemData (nl tem, nl ) ; 

// Birth Time - do not use 
//dr . Forma t Pat ientBirthTime ( s , 64 , false) ; 
'is //m_ResultsList . Set I tem (nl tem, m_ColumnBTime , LVIF_TEXT, s , 0 , 0 , 0 , 0) ; 

} 

•J% II "Higher level" item 

nl tem=m_Resul t sList .lnsertltem(0, ( const char* ) (Get Level Prompt (true) ) , 4 ) 
2^ m_ResultsList . Set ItemData (nl tem, m_ParentList ItemData) ; 
pi // Prevent horizontal scroll 

m_ResultsList . SetColumnWidth (m_ColumnAnum, LVSCW_AUT0SI2E_USEHEADER) ; 
r, // Results label 

if(nFound>0) 

f|i if(nFound==l) res . Format ( "Result s : 1 match found"); 

else res . Format ( "Result s : %d matches f ound" , nFound) ; 

res += res_lev; 

C3 } 

r\ GetDlgItem( IDC_RESULTS_FRAME) - >SetWindowText (res) ; 
GetDlgItem( IDC_STATIC_PROGRESS) - >SetWindowText ( " " ) ; 
// Size columns to their data 
/* 

for(int i=0; i<=6/ i++) 

{ 

if ( i ! =m_ColumnPname && i ! =m_ColumnPid) continue ; 
m_ResultsList . SetColumnWidth ( i , LVSCW_AUTOSIZE_USEHEADER) / 

} 

*/ 

UpdateData (FALSE) ; 
return true 



•k 

* Get current selection from the Results list 

* and corresponding found object index 

* Returns number of parameters successfully retrieved 
* 

***********************************************************★**************/ 

int DQRControl : :GetResultsListSelection ( int& sel, int& dcm_index) 

{ 

sel=dcm_index=-l ; 

POSITION pos = m_Re3ultsList .GetFirstSelectedltemPosition ( ) ; 
int result; 

if (pos == NULL) result=:0; // nothing selected 
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.C7etNextSelectedItem(pos) ; //single sel 



else 

{ 

sel ~ m_Result sList . CJ^tNext Selectedl tern (pos) ; //single selection 
dcm_index= ( int ) {m_Result sLi st . Get ItemData ( sel ) ) ; 
if (dcm_index<0 || dcm_index>=m_DQR . Get FoundCount ( ) ) 



dcm_index= - 1 ; result=l; 

} 

else 

{ 

result = 2,- 

} 

} 

m_ButtonGet . EnableWindow (result >1 ) ; m_But tonMoveTo . EnableWindow (result 
return result ; 

} 

* 

* Clicks on Results list 
*• 

****************************************************** 

bool DQRControl : lOnClickListResults (NMHDR* pNMHDR, LRESULT* pResult) 

{ 

if(pResult) *pResult = 0; 
int sel, dcm; 

bool item= (GetResultsLi St Select ion ( sel , dcm) = = 2) ; 
return item; 

} 

vgid DQRControl : :OnDoubleClickListResults (NMHDR* pNMHDR, LRESULT* pResult) 

*pResult = 0; 
f=:j int sel, dcm; 

int item=GetResul tsLi st Select ion ( sel , dcm); 
int nlev=:max { 1 , m_DQR . Get Level ())- 1 ; 
switch (item) 

ai { 

case 1:// go to higher level 

if {m_DQR. IsOnRootLevel ( ) ) OnButtonStart Search () ; 
n J else 

{ 

: . m_RequestedCl ient Service = f ind_previous ; 

if ( ! Af xBeginThread ( StartQRCl ient , this , GetThreadPr ior i ty { ) , 
Q m_ClientStackSi2e) ) RunCl ientThread ( ) ; 

i } 

^ : return; 

case 2:// go to lower level 
Cj if (m_DQR. IsOnBottomLevel 0 ) { OnBut tonGet ( ) ; return; } 

r=i else 

{ 

m_Resul tsListSelection [nlev] =sel ; 
m_DOB index = dcm; 

m_RequestedCl ient Service = f ind_next ; 

if ( !Af XBeginThread (StartQRCl ient , t hi s , GetThreadPr ior i ty ( ) , 

m_ClientStackSize) ) RunCl ientThread ( ) ; 
return; 

} 

} 

return; 

} 

void DQRControl : lOnRightClickListResults (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

if ( ! OnClickListResul t s (pNMHDR, pResult)) return; 
// Click positioning 
CPoint p (GetMessagePos ( ) ) ; 
m_ResultsList . ScreenToCl ient ( &p) ; 

// Create popup menu 
CMenu menu ; 

menu . CreatePopupMenu ( ) ; 
CMenu menul; 

menul . LoadMenu ( IDR_MENU_DQRCONTROL) ; 
CMenu* pop=menul . Get SubMenu ( 1 ) ; 

// Set acceptable menu IDs 
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UINT id8[2]={ IDC_BUT'3^^GET, 

IDC_BUT'1^^0VET0} ; 

// Create the popup menu 
int n=0; 
unsigned int nid; 
CString strMenu, remAET; 

for(unsigned int i = 0,- i<pop- >GetMenuI temCount ( ) ; i + +) 

{ 

nid=pop- >GetMenuI temID ( i ) ; 

if ( nid!=ids[0] && nid!=ids[l] ) continue; 

if (nid==IDC_BUTTON_GET) m_But tonOet , GetWindowText (strMenu) ; 

else if (nid==IDC_BUTTON_MOVETO) 

{ 

m_ButtonMoveTo.GetWindowText (StrMenu) ; strMenu . TrimRight ( " :"); 
m_MoveArchiveList . GetWindowText (remAET) ; 
StrMenu += CString (" ")+remAET; 

} 

else pop->GetMenuString(i, strMenu , MF_BYPOS IT ION) ; 
int status=pop->GetMenuState(i, MF_BYPOSITION) ; 
menu . InsertMenu (n, status, nid, strMenu) ; 
n++ ; 

} 

// Display popup menu 
ClientToScreen (&p) ; 
p=CPoint (p.x,p.y) ; 

menu. TrackPopupMenu (TPM_LEFTALIGN, p . x , p . y , this ) ; 
pop- >DestroyMenu ( ) ; 
menu . DestroyMenu ( ) ; 
r=^ menul . DestroyMenu 0 ; 

1 

j.^ ***************************************************** 

* Start the dialog 

★itV ************************************************** 
B^0L DQRControl : lOnlnitDialog 0 

= CDialog : lOnlnitDialog ( ) ; 
1=1= m_HWND=GetSafeHwnd() ; 

LoadArchiveList (m_DQR.GetCurrentAEIndex ( ) ) ; 
2". LoadFoundList ( true) ; 

MJ m_ButtonCancel - ShowWindow (SW_HIDE) ; 
SJ m_AnimNetwork . ShowWindow ( SW_HIDE) ; 

f=^ GetDlgItem( IDC_STATIC_PROGRESS) ->ShowWindow(SW_HIDE) ; 
J: if ( ! m_LocalOnly) 
{ 

GetDlgItem(IDC_BUTTON_DELETE) - >ShowWindow ( SW_HIDE) ; 

GetDlgItem(IDC_ARCHIVE_LOCATION) ->SetWindowPos (this, 0, 0, 90, 14, 
SWP_NOMOVE I SWP_NOZORDER | SWP_SHOWWINDOW) ; 

} 

else GetDlgItem( IDC_CONNECTION) - >ShowWindow ( SW_HIDE) ; 




/* SET m_ResultsList : */ 
// 1. Load icons 

if (m_ImageList . m_hImageList==NULL) 
{ 

if ( !m_ImageList . Create (16 , 17, ILC_COLOR4 ,5,1)) 
{ return FALSE; } 

m_ImageLi St . Add ( theApp . LoadI con ( IDI_ICON_LEVEL_PATIENT) ) ; 
m_ImageLi St . Add ( theApp . Loadlcon ( IDI_ICON_LEVEL_STUDY) ) ; 
m_ImageList .Add(theApp.LoadIcon(IDI_ICON_LEVEL_SERIES) ) ; 
m_ImageList .Add(theApp,LoadIcon(IDI_ICON_LEVEL_IMAGE) ) ; 
m_ImageList . Add ( theApp . LoadI con ( IDI_ICON_LEVEL_HIGHER) ) ; 

} 

m_ResultsList . Set ImageList ( &m_ImageLi st , LVSIL_SMALL) ; 
// 2. Load columns 

m_ResultsList . InsertColumn (m_ColumnPname , "Patient Name" , LVCFMT_CENTER , 120 , 0) 
m_ResultsList . InsertColumn (m_ColumnPid , "Patient ID" , LVCFMT_CENTER , 80, 0) ; 
m Result sList . InsertColumn (m_ColumnBDate, "Birth Date", LVCFMT_CENTER , 80 , 0 ) ; 
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m_ResultsList . InsertCol^^fcn_ColumnSDate , "Study Date" , LVCFj^^ENTER , 80, 0) ; 

m_ResultsList . InsertColi^^Pi_ColumnSTime, "Study Time", LVCFi^^NTER , 80 , 0 ) ; 

m_ResultsList . InsertColumn (m_ColumnMod , "Modality" , LVCFMT_CENTER, 60, 0) ; 
m_Result8List . InsertColumn (m_ColumnSImgNum, " Images" , LVCFMT_CENTER, 50, 0) ; 
m_ResultsList , InsertColumn {m_ColumnAnum, "Access . # " , LVCFMT_LEFT, 100 , 0) ; 
//m_ResultsList . InsertColumn (m_ColumnBTime , "Birth Time" , LVCFMT_CENTER , 80 , 0) ; 
m_ResultsList . SetColumnWidth (m_ColumnAnum, LVSCW_AUTOSI ZE_USEHEADER) ; 
// 3. Force entire row selection 

m_ResultsList , SetExtendedStyle ( LVS_EX_FULLROWSELECT | LVS_EX_SUB ITEM I MAGES 

I LVS_EX_GRIDLINES) ; 
// Load all data if required 
FindAll ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 
* 

* Set log files (client and server) 
* 

****************************************************** 

bool DQRControl : :CreateDQRControl (DICOMViewLog* ptrCl ientLog , DICOMDatabase* ptrDB, 

bool local_only) 

{ 

static bool getIP=true, start Servers= true , • 

if { IptrClientLog || IptrDB) 

{ 

AfxMessageBox ( "Cannot initialize Query/Retrieve control with NULL parameters") 
return false; 

} 

dj II Set parameters 

if ( ! m_DQR. Great eQRCptrCl lent Log, ptrDB) ) 

1' { 

AfxMessageBox (" Failed to initialize Query/Retrieve control"); 
Si return false; 

=f m_DQR. SetDQRCallBack (DQRCtrlCallbackFilter , this) ; 

m_TaskView. AttachDQR (&m_DQR) ; 
nJ Tn_LocalOnly= local__only ; 

'J m_UseTaskQueue = ! m_LocalOnly ; // Queue tasks on remote only 

m_Prompt ForTaskScheduler = m_UseTaskQueue ; // Prompt for schedule by default 
P- m_PreloadData = m_LocalOnly; // Preload patient data on local 
C] m_AEarray = m_DQR . GetAELi stPtr ( ) ; 
^"i // Find local AE at first call 
:*! if(getlP) 

^ { 

Li BYTE ipl , ip2 , ip3 , ip4 ; 

CString comp_name ; 

if (GetLocallP (comp_name, ipl , ip2 , ip3 , ip4 ) ) 

{ 

if { !m_AEarray->SetLocalAE (ipl , ip2 , ip3 , ip4 , (char*) (LPCSTR) comp_name ) ) 
{ 

AfxMessageBox (" Cannot find Application Entity for this PC"); 
return false; 

) 

} 

get IP=f alse ; 

if ( ! StartTaskQueue ( ) ) 

AfxMessageBox (" Failed to initialize background task queue"); 
return false; 

// Start all servers at first call 
if ( startServer s ) 

StartAllServers ( ) ; 
StartServer s=fal se ; 

// Retrieve serialized task data 
SerializeDQRControl ( true) ; 
return true; 

) 
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- ^1^^ ir*it*ieitit*ir***-k-k-k-k-k-kir*-k*ic***ir-k-k-k-k ^^^^ 



* 

* Test network connection to" current remote archive (C-ECHO) 



void DQRControl : : TestArchiveConnect ion ( ) 
{ 

Beep(500, 100) ; 

m_Reque St edClient Service = echo; 

if ( ! Af xBeginThread (StartQRClient , this, 

GetThreadPriority ( ) , m_ClientStackSize) ) RunCl ientThread ( ) ; 

} 

/***********************************★******************************* 
* 

* Delete. Works with local database only ! 
* 

******************************★************************************/ 
void DQRControl: lOnButtonDelete ( ) 

{ 

if ( ! m_LocalOnly ) return; 
int sel=-l, dcm=-l; 
DICOMRecord dr; 
// Anything selected ? 

if (GetResul t sListSelect ion ( sel , dcm) == 2) 

{ 

if ( ! m_DQR . GetFoundRecord (dr , dcm) ) return; 

else 

^3 { 

DQRSearch ds ; 

if (ds.DoModal ( ) != IDOK) return; 
ds . WritelntoDICOMRecord (dr) ; 

■-=1 } 

if (AfxMessageBox ( "Delete specified items from the local database 
'"Jf MB_yESNO) != IDYES) return; 

=^ int n = m_DQR . DeleteFromLocalDB (dr) ; 

nJ if(n>0) // Repeat last Find to refresh the worklist window 

; , m_RequestedClientService=f ind; 

^= if ( ! Af xBeginThread(StartQRClient , this, 

CI GetThreadPriority 0 ,m_ClientStackSize) ) RunCl ientThread () ; 

m } 

**************************************************** 

^" Cancel last network CFind, CGet or CMove 
* 

*************************************************** 

void DQRControl: lOnBut tonCancel ( ) 

{ 

Beep (500, 100) ; 
m_DQR. Cancel ( ) ; 

GetDlgItem(IDC_STATIC_PROGRESS) ->SetWindowText ( "Cancelling requested, wait ...") 

) 

void DQRControl :: EnableCancel ( ) 

{ 

if (m_RequestedClientService != echo) 

{ 

m ButtonCancel . ShowWindow(SW SHOW); 



* 

* Start search 
* 

****★**********************************************************************/ 
void DQRControl: : OnBut tonStartSearch () 

{ 
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long Image :: TR_Sobel (const 



const int y) 



long aOO=GetLuminance (x- 1 , y- 1 ) ; 
long a20=GetLuminance (x+1 , y- 1 ) ; 
/*long all=GetLuminance (x , y) ; */ 
long a21=GetLuminance (x+1 , y) ; 
long a02=GetLuminance (x- 1 , y+1 ) ; 



long alO=GetLuminance (x, y-1) ; 

long a01=GetLuminance (x-l ,y) ; 

long al2=GetLuminance (x , y+1 ) ; 

long a22=GetLuminance (x+1 ,y+l) ; 



long tx= (a22-a02) + (a20-a00) +2* (a21-a01) ; 

long ty= (a00-a02) + (a20-a22) +2*{al0-al2) ; 

long t= ( long) (sqrt ( tx*tx+ty*ty) ) ; 

if ( t<m_EdgeThreshold) t=0; 

if ( t >m_maxPixelValue) t=m_maxPixelValue ; 

return t; 



/*************************************************************************** 
* Apply Hurst fractal operator 

long Image :: TR_Fractal (const int x, const int y) 

{ 



long p, pmin, pmax; 
double t, sl=0.0, s2=0.0; 



// Find log variance for 
// d-1 

p=GetLuminance (x- 1 , y) ; 
p=GetLuminance (x+1 , y) ; 
p=GetLuminance (x , y- 1 ) ; 
p=GetLuminance (x , y+1 ) ; 
t=log (max (pmax-pmin, 1 ) ) ; 
si += 0.0; S2 += t; 
// d=sqrt(2) 
p=Get Luminance (x- 1 , y- 1) 
p=Get Luminance (x+1 , y- 1 ) 
p=Get Luminance (x- 1 , y+1 ) 
p=Get Luminance (x+1 , y+1 ) 
t=log (max (pmax-pmin , 1 ) ) 
si += t*0. 34657359; s2 
// d=2 

p=GetLuminance (x- 2 , y ) ; 
p=GetLuminance (x+2 , y ) ; 
p=GetLuminance (x , y-2 ) ; 
p=GetLuminance (x , y+2 ) ; 
t = log (max (pmax-pmin , 1 ) ) ; 
si += t*0. 69314718; s2 + 
// d-sqrt(5) 
p=Get Luminance (x- 1 , y- 2 ) 
p=Get Luminance (x- 1 , y+2 ) 
p=Get Luminance (x+1 , y-2) 
p=Get Luminance (x+1 , y+2 ) 
p=Get Luminance (x-2 , y- 1 ) 
p=GetLuminance (x-2,y+l) 
p=GetLuminance (x+2,y-l) 
p=GetLuminance (x+2,y+l) 
t=log (max (pmax-pmin, 1 ) ) 
si += t*0. 80471896; s2 
// d=sqrt(8) 
p=Get Luminance (x- 2 , y- 2 ) 
p=GetLuminance (x+2,y-2) 
p=Get Luminance (x-2 , y+2 ) 
p=Get Luminance (x+2 , y+2 ) 
t=log (max (pmax-pmin, 1 ) ) 
si += t*l . 03972077; s2 
// d=3 

p=GetLuminance {x-3 , y) ; 
p=GetLuminance (x+3 , y) ; 
p=GetLuminance (x , y- 3 ) ; 
p=GetLuminance (x , y+3 ) ; 
t=log (max (pmax-pmin, 1 ) ) ; 
si += t*l , 09861229; s2 + 



each distance from the central pixel 
pmax=pmin=p ; 

if (p>pmax) pmax=p; else if (p<pmin) pmin=p; 
if(p>pmax) pmax=p; else if (p<pmin) pmin=p; 
if(p>pmax) pmax=p; else if (p<pmin) pmin=p; 



pmax=pmin=p; 

if(p>pmax) pmax=p; else 

if(p>pmax) pmax=p; else 

if(p>pmax) pmax=p; else 



if (p<pmin) pmin= 
if (p<pmin) pmin= 
if(p<pmin) pmin= 



p; 
p; 
p; 



+ = t ; 



//we use ln(sqrt(2)) 



pmax=pmin=:] 
if {p>pmax) 
if (p>pmax) 
if (p>pmax) 

t; 



pmax=p; else if (p<pmin) pmin=p; 
pmax=p; else if (p<pmin) pmin=p; 
pmax=p; else if (p<pmin) pmin=p; 



pmax=pmin= 


p; 












if (p>pmax) 


pmax 


=P; 


el se 


if (p<pmin) 


pmin = 


P; 


if (p>pmax) 


pmax 


=P; 


else 


if ( p<pmin) 


pmin = 


P; 


if (p>pmax) 


pmax 


=P; 


else 


if ( p<pmin) 


pmin= 


P; 


if (p>pmax) 


pmax 


=P; 


el se 


if ( p<pmin) 


pmin= 


P; 


if (p>pmax) 


pmax 


=P; 


el se 


if ( p<pmin) 


pmin = 


P; 


if (p>pmax) 


pmax 


=p; 


el se 


if ( p<pmin) 


pmin= 


P; 


if (p>pmax) 


pmax 


=p; 


else 


if ( p<pmin) 


pmin= 


P; 



+ = t ; 



pmax=pmin=p ; 

if (p>pmax) pmax=p; else if(p<pmin) pmin=p; 
if(p>pmax) pmax=p; else if(p<pmin) pmin=p; 
if(p>pmax) pmax=p; else if(p<pmin) pmin=p; 

+ = t; 
pmax=pmin=p; 

if (p>pmax) pmax=p; else if (p<pmin) pmin=p; 
if (p>pmax) pmax=p; else if (p<pmin) pmin=p; 
if(p>pmax) pmax = p; else if (p<pmin) pmin=:p; 
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// d=sqrt(10) i 
p=GetLuminance (x-1 , y-3 ) J 
p=GetLuminance (x- 1 , y+3 ) ; 
p=GetLuminance (x+1 , y-3 ) ; 
p=GetLuminance (x+1 , y+3 ) ; 
p=GetLuminance (x-3 , y- 1) ; 
p=GetLuminance (x-3 , y+1) ; 
p=GetLuminance (x+3 , y- 1) ; 
p=GetLuminance (x+3 , y+1 ) ; 
t=log (max (pmax-pmin , 1 ) ) ; 
si t*l . 15129255; s2 += t; 

Sl *= 0.14285714; s2 = s2 * 0 . 1 04 776 84 ; 

//Find fractal dimension as slope of the Hurst line 
//t=max(6 .386491206* (sl-s2) , 0.0) ; // fractal dimension 
t=max ( 1000* (sl-s2) , 0 . 0) ; // fractal dimension 
return( {long)(t) ); 

} 

* 

* Apply a pixel neighborhood function (with code mask._type) to the image 
* 

bool Image :: TR_PixelNeighboorhood (char mask_type, bool show_progress) 

{ 

int rad , i , j , j 1 , top , bot ; 
long p , pmin , pmax ; 
double tr_scale=l . 0 ; 

J* // Set pointer to the masking function 

long ( Image :: *maskF) (const int x, const int y) = 0; 
~_" swi tch {mask_type ) 



Sj case 


■g- 


: maskF= 


TR_DeNoise ; rad=2 ; 


break ; 


// 


denoising 


.f^ case 


' a ' 


: maskF= 


TR_Smooth; rad=l; 


break ; 


// 


average smoothing 


case 


' s ' 


: maskF= 


TR_Sharp; rad=l; 


break ; 


// 


sharpening 


case 


' e ' 


: maskF= 


TR_Sobel; rad=l; 


break ; 


// 


edge detector 


Oj case 


' f ' 


: maskF= 


TR_Fractal; rad=3 


; break; 


// 


fractal dimension 


, default : 


return 


false; // invalid 


mask type 





} 



C| // Create temporary buffer 

int w = GetWidthO; 
l^', int h = GetHeightO; 
2^ long *(*buf)=new long* [rad+1] ; 
ri if(!buf) 

Af xMessageBox ( " Low memory, cannot transform"); 
return false; 

} 

for(i=0; i<=rad; i++) 

{ 

buf[i] = new long [w] ; 

if (buf [i] ==0) 

{ 

Af xMessageBox { "Low memory, cannot transform"); 
for(j=0; j<i; j++) { if (buf [j]) delete [] buf[j]; } 
delete [] buf; 
return false; 
} // out of memory 

} 



// Display progress control in the main frame status bar 

if ( show_progress) theApp . ShowProgress ( 5 Transforming ..."); 

// Find transform scaling factor 

if (mask_type ! ' e ' £e& mask_type ! = ' f ' ) 

{ 

pmin=0; tr_scale=l . 0 ; 

} 

else 

{ 



pmax=pmin=p 
if (p>pmax) 
if (p>pmax) 
if (p>pmax) 
if (p>pmax) 
if (p>pmax) 
if (p>pmax) 
if (p>pmax) 



pmax=p 
pmax=p 
pmax=p 
pmax=p 
pmax=p 
pmax=p 
pmax=p 



else 
else 
else 
else 
else 
else 
else 



if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 



pmin=p; 
pmin=p; 
pmin=p; 
pmin=p; 
pmin=p; 
pmin=p; 
pmin=p; 
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// Estimate transf 0:5^^^ pixel value range 
p=pmin=pmax= ( this - >^^^cF) (rad+1 , rad+1 ) ; 
int dw = w>>3; if (dw<l) dw=l; 
int dh = h>>3; if(dh<l) dh=l; 
for(i=rad+l; i<w-rad; i += dw) 

( 

for(j=rad+l; j<h-rad; j += dh) 

{ 

p= ( this- >*maskF) ( i , j ) ; 
i f ( p > pmax ) pmax = p ; 
else if(p<pmin) pmin=p; 

} 

} 

pmax++ ; 

tr_scale = (double) (m_maxPixelValue) / (pmax-pmin) ; 

} 

if ( show_progress) theApp . ShowProgress (10) ; 

// Backup pixel values 
ResetPixels (true) ; 

// Apply (2*rad-l) * ( 2*rad-l ) masking operator 

bot=-l; 

top=rad- 1 ; 

int procent=0; 

for(j=rad; j<=h; j++) 

{ 

if ( show_progress ScSt j%50 == 0) 

{ 

procent = 10+(90*j)/h; 

if (procent %3 ==0 ) theApp . ShowProgress (procent ) ; 

} 

j 1= j -rad- 1 ; 
if ( j l>=rad) 
{ 

for(i = rad; i<w-rad,- i + +) SetPixel ( i , j 1 , buf [bot ] [i])/ 

} 

bot = (bot+1) % (rad+1) ; 
top = (top+1) % (rad+1) ; 
if { j <h-rad) 

{ 

for(i=rad; i<w-rad; i++) 

{ 

buf [top] [ i] = ( long) ( tr_scale*( ( thi s- > *maskF) ( i , j ) -pmin ) ); 

} 

} 

) 

// Clean up 

for(j-0; j<=rad; j++) { if (buf [j]) delete [] buf[j]; } 

delete [] buf ; 

theApp , ShowProgress { 0 ) ; 

Beep(500, 50) ; 

return true ; 



/******************************************************* 
* 

* Inverts the image 
* 

bool Image :: TR_Negate ( ) 

{ 

if (m_pPal->p_active) m_pPal - >Negate () ; 
el se 
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}^^^rol in the main frame status bal^^^ 



// Display progress' 

theApp . ShowProgress ( iT^ Changing to negative image 
// Backup pixel values 
ResetPixels ( true) ; 
// Invert pixels values 
if {m_RGB) 
{ 

BYTE r, g, be- 
long p; 

for (long i=0; i< ( long ) m_numPixels ; i++) 

{ 

if{i%1000==0) theApp. ShowProgress ( (99*i) /m_numPixels) ; 
p=GetPixel ( i) ; 

r=m_maxPixelValue-GetRValue (p) 
g=m_maxPixelValue-GetGValue (p) 
b=m_maxPixelValue-GetBValue (p) 
Set Pixel ( i , RGB ( r , g , b) ) ; 

} 

} 

else 

{ 

for(long i=0; i< ( long) m_numPixels ; i++) 

{ 

if(i%1000==0) theApp. ShowProgress ( ( 99*i) /m_numPixels) ; 
Set Pixel ( i , m_maxPixe lvalue -Get Pixel { i) ) ; 

} 

} 

) 

LJ theApp . ShowProgress ( 0 ) ; 
ijj Beep{500, 100) ; 
^1 return true; 



****************************************************************** 

Fl I 

t Copy pixels from current to safe buffer (on true) 
or vice versa (on false) 

3F* **************************************************************** 

p^oid Image: : ResetPixels (bool . current_to_safe) 

if ( current_to_saf e ) // current -> safe 

p== if (m_UndoFile != " + ") return; 

~" m_UndoFileCount++ ; 

m_UndoFile. Format ( " %s\\_pix%04d . tmp" , theApp . app_DirectoryTmp , m_UndoFi leCount ) ; 

FILE* fp = f open (m_UndoFile , " wb" ) ; 

if(!fp) { m_UndoFile = "+"; return; } 

//f write (m_Pixels , 1 , m_numPixelBytes , f p) ; 

Serializelmage ( f p, false); 

f close ( f p) ; 

} 

else // safe -> current 
{ 

if {m_UndoFile == || m_UndoFile == "") return; 

FILE* fp = fopen(m_UndoFile, "rb" ) ; 
if(!fp) { return; } 

//f read (m_Pixels , 1 , m_numPixelBytes , f p) ; 
Serial izelmage ( fp, true); 
f close ( fp) ; 
m_UpdateBitmap=true ; 

) 

} 

* 

* Complete image serialization into a binary file 

********************************************************************** 
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bool Image :: Serializelmage ( 

{ 

int width, height, bpp; 
if ( ! is_loading) 



*fp, bool is_loading) 



{ 



width = m_Width; 

height = m_Height; 

bpp = m_Bytes_per_Pixel ; 



if ( ! 
if ( ! 
if (! 



Serialize Integer ( f p. 
Serialize Integer (f p. 
Serialize Integer (f p, 



width, is_loading) ) return false 
height, is_loading) ) return false 
bpp, is_loading) ) return false 



if ( is_loading) 

{ 



// reformat the image if needed 

if (width !=m_Width | | height ! =m_Height 



II bpp ! =m_Bytes_per_Pixel ) 



} 



if (! Createlmage (width, height, bpp)) 



return false; 



} 

if ( !m_ScreenMap . SerializeScreenMap (f p, is_loading) ) return false; 

if ( !m_DICOMRecord. SerializeDICOMRecord (f p, is_loading) ) return false; 

if ( ! i9_loading) f write (m_Pixels , 1 , m_numPixelBy tes , f p) ; 

else f read (m_Pixels , 1 , m_numPixelBy tes , f p) ; 

return true; 



yijtl* ********************************************************************* 

Ql 

Histogramm stretch from [amin,amax] to [bmin,bmax] color range. 
f't R,G and B components are stretched together 

*f # ****************************************************************** 

^ol Image :: TR_HistStretch ( int amin,int amax,int bmin,int bmax, 

bool show_progress) 

s long i, cmax, p; 

/* Create color map */ 
=^ if (m_pPal- >p_act ive) cmax=m_pPal - >p_Size ; 
f^J else Ge t_Pixel_minmax ( i , cmax) ; 

cmax++; 
_r long* color_map; 

'-^ try { color_map = new long [cmax] ; } 
EJ catch (...) 

{ 

Af xMessageBox ( " Low memory, cannot perform this transform", 

MB_0K|MB_IC0NEXCLAMATI0N) ; 
return false; 

} 

if ( ! color_map) 

{ 

Af xMessageBox ( "Low memory, cannot perform this transform", 

MB_0K|MB_IC0NEXCLAMATI0N) ; 
return false; 
} // out of memory 

/* Set color map parameters */ 
if(amin<0) amin=0; 
if(bmin<0) bmin=0; 
if (amax>m_maxPixelValue) amax=m 
if (bmax>m_maxPixelValue) bmax=m 
if (amin>=amax | | bmin>=bmax) 

{ 

delete [] color_map; return 

} 

if (amin==bmin &fic amax==bmax) 

{ 

delete [] color_map; return 

} 



maxPixelValue ; 
maxPixelValue ; 
// invalid map 

false ; 

// no stretch needed 
true ; 
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/* Fill the color map 
long da=amax-amin; 
long db=bmax-bmin; 
for(i=0; i<cmax; i++) 



} 



p=bmin+ (db* ( i -amin) ) /da ; 

if (p<bmin) p=bmin; else if (p>bmax) p=bmax; 
color_map [ i ] =p; 



SetPalette ( color_map, cmax, show_progress) ; 



delete [] color_map; 
return true : 



* Histogramm stretch from (percent) % median neighborhood 

* to the maximal [ 0 , m_maxPixelValue] range 

***************************************************************************** 
bool Image :: TR_HistStretch (BYTE percent, bool show_progress) 

{ 

long i, amin, amax, amed, p; 

/* Validation */ 
LJ if (percent >=100 ) percent=99; 
j3 if (percent<0) return true; 

^= /* Find pixel statistics */ 

Get_Pixel_minmax ( amin , amax) ; 
Sj if (percent==0 ) return TR_HistStretch (amin, amax , 0 , 

m_maxPixelValue , show_progress) ; // simple stretch 

/* Initialize image histogram */ 
ffj long cmax = amax+ 1 ; 
'J' int* hist; 

r try ( hist=new int [cmax] ; } 
catch (...) 

S": Af xMessageBox ( "Low memory, cannot perform this transform", 

['•^ MB_OK|MB_ICONEXCLAMATION) ; 

"^J return false; 

ifdhist) 

Af xMessageBox ( " Low memory, cannot perform this transform"); 

return false; 
} // out of memory 
for(i=0; i<cmax; i++) hist[i]=0; 

/* Estimate image histogram */ 
int hmax=20000; 

int di= max ( 1 , m_numPixels/ 10000) ; 

if(m_RGB) // Color image 

{ 

for(i=0; i<m_numPixelBytes ; i += di) 

{ 

p=m_Pixel s [ i ] ; 

if (hist [p] <hmax) hist (p) += di; 

} 

} 

else // Greyscale image 

{ 

for(i=0; i< ( long) m_numPixels ; i += di) 

{ 

p=GetPixel ( i ) ; 

if (hist [p] <hmax) hist [p] += di; 
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/* Find histogram color ^J^^age */ 
double ptot=0, tot=0; 
for(i=0; i<cmax; i++) 

{ 

ptot += ( (double) i) *hist [i] ; 
tot += hist [i] ; 

} 

amed = ( long) ( 0 . 5+ptot/ tot ) ; 

/* Find new intensity range to preserve */ 

double keep_max= (100-percent ) *tot/100 ; // number of pixels to keep 

double keep=hist [amed] ; 

long bmin=amed; long bmax=amed; 

do // do at least once to guarantee bmin<bmax 

{ 

if (bmin>amin) 

{ 

bmin- - ; 

keep += hist [bminj ; 

} 

if ( bmax<amax) 

{ 

bmax++ ; 

keep += hist[bmax] ; 

} 

) while {keep<=keep_max) ; 
delete [] hist; 

if ( ( (bmin ! =amin) I I (bmax ! =amax) ) && (bmin<bmax) ) 

return TR_HistStretch (bmin, bmax , 0 , m__maxPixe lvalue , show_progress) ; 
else return false; 



jt * ************************************************************************** 
Histogramm equalization 

fl \ 

ic'i^ **** ie ********* ie it *********************** if ic * ie * 

Bool Image :: TR_Hi stEqualize (bool show_progress) 

r% long i, amin, amax , p; 

[•^ /* Find pixel statistics */ 
"tI Get_Pixel_minmax (amin , amax) ; 
p BeepOOO , 100) ; 

/* Initialize image histogram, also used as color map */ 

long cmax=amax+l; 

long* hist=new long[cmax] ; 

if ( !hist ) 

{ 

Af xMessageBox ( " Low memory, cannot perform this transform"); 

return false; 
) // out of memory 
for(i=0; i<cmax; i++) hist[i]=0; 



/* Compute image histogram */ 
long hmax=2000000; 

int di= max ( 1 , m_numPixels/10000 ) ; 

if(m_RGB) // Color image 

{ 

for(i=0; i<m_numPixelBytes ; i += di) 

{ 

p=m_Pixels [ i] ; 

if (hist [p] <hmax) hist [p] += di; 

} 

} 

else // Greyscale image 

{ 

for(i=0; i< ( long) m_numPixels ; i += di) 

{ 

p=GetPixel ( i) ; 
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if (hist [p] <hmax 

} 

} 



^^t[pj 



/* Integrate the histogram */ 
double htotal=0; 

for(i=0; i<cmax; i++) htotal += hist(i); 

if(htotal<l) // did we have negative pixels or empty image 

{ 

delete [) hist; return false; 

} 

if (hist [0] <htotal-l) { htotal -= hist [0] ; hist[0]=0; } 

/* Fill the color map */ 
double hcum=0; 
for(i=0; i<cmax; i++) 

{ 

hcum += hist[i] ; // update cumulative hist 
hist ( i] = ( long) ( (m_maxPixelValue*hcum) /htotal ) ; 

} 

/* Remap the pixel data */ 

SetPalette (hist , cmax, show_progress) ; 

/* Clean up */ 
delete [] hist; 
return true; 



*ij Image Gamma correction 

*********************************************************** 

Miol Image :: TR_GammaCorrect ion ( double gamma) 

_ long i, p, pmax; 

^J" /* Validation */ 

O if (gamma<=0 . 1 ) gamma =0,1; 

r|| if ( fabs (gamma- 1 . 0 )< 0 . 1 ) return true; // gamma is nearly 1.0, no correction 

_J /* Find maximum pixel value */ 
£3 Get_Pixel_minmax ( i , pmax) ; 

rj if (pmax==0) return true; //blank image, no correction 



/* Create color map */ 
long* color_map; 

try { color_map=new long [pmax+1] ; } 

catch( . . . ) 

{ 

Af xMessageBox ( "Low memory, cannot run gamma correction", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

} 

if ( ! color_map) 

{ 

Af xMessageBox ( "Low memory, cannot run gamma correction", 

MB_0K|MB_IC0NEXCLAMATI0N) ; 
return false; 
} // out of memory 

/* Fill the color map */ 
double c=1.0/pmax; 
double gamma_l=l . 0/gamma; 
for(i=l; i<=pmax; i++) 

{ 

p= (int) (0 . 5+pmax*pow ( c*i ,gamma_l) ) ; 
if(p>pmax) color_map [ i] =pmax; 
else color_map [ i] =p ; 
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// Display progress control in the main frame status bar 
theApp . ShowProgress { 1 , "Performing gamma correction ..."); 

/* Remap the pixel data */ 

SetPalet te (color_map, pmax+1, true) ; 

/* Clean up */ 
delete [] color_map; 
theApp . ShowProgress ( 0) ; 
Beep(500, 100) ; 
return true; 

} 



} 

color_map (0) =0 ; 



I* 



Log transform to enhance dark images 



**************************************************************************** 
bool Image : : TR_PixelLog ( ) 

{ 

long i, p, pmax; 

u 

j| /* Find maximum pixel value */ 
ni Get_Pixel_minmax ( i , pmax) ; 

if(pmax< = 2) return true; //blank image, no correction 

>J /* Create color map */ 
J J long* color_map; 

7i *-^y { color_map=new long [pmax + 1 ] ; } 
catch ( . . . ) 

nj { 

- Af xMessageBox ( " Low memory, cannot enhance dark image", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 



9 ) 

flj if ( ! color_map) 

Af xMessageBox ( "Low memory, cannot enhance dark image", 
U MB_OK|MB_ICONEXCLAMATION) ; 

ri return false; 

} // out of memory 

/* Fill the color map */ 

double c=m_maxPixelValue/log { (double) pmax) ; 

for(i=0; i<-pmax; i++) 

{ 

p=(long)( 0.5+c*log( (double) (i+1) ) ); 

if (p>m_maxPixelValue) color_map [ i] =m_maxPixelValue ; 

else color_map [ i] =p; 

} 

/* Remap the pixel data */ 
SetPalette {color_map , pmax+1, true); 

/* Clean up */ 
delete [] color_map; 
Beep(500, 100) ; 
return true ; 



* 

* Exp transform to enhance light images 
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*************************** -^^^^ ****************************** *^^^^* ******************y 

bool Image :: TR_PixelExp ( ) 

{ 

long i, p, pmax; 

/* Find maximum pixel value */ 
Get_Pixel_minmax ( i , pmax) ; 

if(pmax<=2) return true; //blank image, no correction 



/* Create color map */ 
long* color_map; 

try { color_map=new long Epmax+1 ] ; } 

catch ( . . . ) 

{ 

Af xMessageBox ( "Low memory, cannot enhance bright image", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

) 

if ( ! color_map) 

{ 

Af xMessageBox (" Low memory, cannot enhance bright image", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 
} / / out of memory 

/* Fill the color map */ 
double c=l . 0/m_maxPixelValue ; 
„. for(i=0; i<=pmax; i++) 

l|j p={long)( pow (( double ) m_maxPixe lvalue , c* i ) ); 

fl% if (p>m_maxPixelValue) color_map [ i] =m_maxPixelValue ; 

else color_map [ i] =p ; 

J\ /* Remap the pixel data */ 

"^l. Set Palette ( color_map , pmax + 1, true); 

nj /* Clean up */ 
5 delete [] color_map; 
i,^ Beep (500, 100) ; 
return true ; 

i 

************************************************************************************ 

* ' Rotate the image 
* 

**************************************************************************************/ 
bool Image :: TR_Rotate ( int degrees) 

{ 

degrees %= 360 ; 

if (degrees == 0) return true; 

if (degrees != 90 && degrees != 180 && degrees != 270) return false; 

int x, y, w, h; 

// Do we have 180 degrees ? 

if (degrees 180) 

{ 

// Backup 

ResetPixels ( true ) ; 
// Central symmetry 

w = GetWidthO; h = GetHeightO; 

long p; 

for(x=0; x<w/2; X++) 

{ 

:: ShowProgress ( (200*x) /w, "Rotating by 180 degrees..."); 
for(y=0; y<h; y++) 

{ 

p = GetPixel (x , y) ; 

Set Pixel (x , y, GetPixel ( w-x , h-y) ) ; 

SetPixel (w-x, h-y , p) ; 
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if (w%2==0) 




X = (w/2) ; 

for(y=0; y<h/2; y++) 

{ 

p = GetPixel {x, y) ; 
'G4 2Xn um<m_NumberOf Frames ; imagenum++) 



info. Format ( "Loading image # %d/ %d" , imagenum+1 , m_NumberOf Frames ) ; 
// Allocate next image frame 
pimg = &(Add()); if(!plmg) break; 

if ( ! (pImg->CreateImage (m_Width , m_Height , {m_Bi t sAl located+7) /8, 

m_Palette) ) ) 

{ 

Af xMessageBox ( "Out of memory for image data", MB_ICONEXCLAMATION | MB_OK) 
RemoveLast ( ) ; 
pImg = NULL; 
break; 

} 

// Load pixels 
int percent=0; 

long pmax=Get ( 0) . m_maxPixelValue ; // set acceptable pixel max. 
double aprog=imagenum*m_Height ; 
for(UINT y=0; y<m_Height; y++) 

{ 

if (y%60==0) 
{ 

percent = (int) ( (y+aprog) *kprog) ; 

if ( percent % 2 ==0) : : ShowProgress (percent , (char*) (LPCSTR) info) ; 

} 

for(UINT x=0; x<m_Width; x++) 
{ 

_ p=rpd . GetBuf f eredPixel ( i ) ; i++; 

[y pImg->SetPixelFromLum (x,y , (pmax* {p-p_min) ) /dp ); 

) ' 

L,_ // Set record data 

pImg- >Set ImageData { &dr, &m_PixelSpacing , &imagenum) ; 
nj // Create series palette 

v; if ( imagenum==0) // first image 

m_Palette = new Palette ( theApp . app_Metheus , 
Ci pImg- >m_maxPixelValue , 

pImg->m_RGB) ; 
pImg- >LinkToPalette (m_Palette) ; 

} 

} 

vr->Reset(); // Clear data from the vr 

// Update image series parameters 

if (GetSizeO >0) 

{ 

m_Width = Get (0) .GetWidthO ; 
m_Height=Get (0) .GetHeight (} ; 

m_SamplesPerPixel=l ; // we merged multiple samples 
m_BitsAllocated=8*Get (0) . Ge tBy tesPerPixel () ; 
m_BitsStored=m_HighBit=m_BitsAl located; 

} 

SetShowSeriesImageInf o ( true) ; 
theApp . ShowProgress ( 0) ; 

return true; 

} 

/********************************************************************* 
* 

* Save bitmap image array as VR data 

* This function is required and overrides abstract virtual 

* in the base class 
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bool ImageSeries : : Wri te Pixel sTVR *vr) 

{ 

int i; 

UINT32 data_size, dsize; 
// Find total data size 
int imagenum=Ge tUpper Bound 0 +1 ; 
if ( imagenum<=0 ) return true; 
data_si2e=0 ; 

for(i=0; i<imagenum; i++) 

{ 

Get(i) . GetPixelBytes (dsize) ; 
data_size += dsize; 

} 

// Allocate pixel encoder 
RawPixelEncoder rpe; 
if ( ! rpe . Set Size (data_size) ) 

{ 

Af xMessa'geBox ( "Out of memory on saving pixel data", 
MB_ICONEXCLAMATION|MB_OK) ; 

return false; 

} 

// Copy image data into the encoder buffer 
for(i=0; i<imagenum; i++) 
{ 

BYTE* data=:Get (i) .GetPixelBytes (dsize) ; 
rpe . AddData (data , dsize, Get ( i ) . GetBytes InRaw ( ) ) ; 

Q% 

~cl 11 Attach encoder buffer to the vr 
rpe . Transf erDataToVR ( vr) ; 



ifl return true; 



***************************************************** 



1 Get image pointer (safe), and update m__Current Imagelndex 

*JtH* ************************************************ 

Hrkge* ImageSeries :: Get Image ( int n) 

^ // Validate image index 
if ( IHasData ( ) ) 

Cl { 

m_CurrentImageIndex=-l ; 
return NULL; // no images 

} 

if (n< 0) n=0 ; 

else if (n>GetUpperBound ( ) ) n=GetUpperBound () ; 

// Retrieve image pointer 

m_Current Image Index=n ; 

return & (Get (m_Current Image Index) ) ; 

} 

Image* ImageSeries: : GetCurrent Image ( ) 

( 

return Get Image (m_Current Image Index ) ; 

} 

Image* ImageSeries :: Get ImageFromScreenPoint (CPoint &p) 

{ 

Image* img = GetCurrent Image () ; 
if(!img) return NULL; 

if (m_DisplayColumns == 0) return img; 

if ( img- >ContainsScreenPoint (p) ) return img; 
for(int n=0; n< ( int ) GetSize ( ) ; n++) 

{ 

if (n==m_Current Imagelndex) continue; 
if (Get (n) . ContainsScreenPoint (p) ) 

{ 

img = Getlmage(n); 
SetSelectedlmage 0 ; 
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break; 




return img ; 



* 

* Sets selection to current image 
* 

************************************************************* 
void ImageSeries: : Set Selectedlmage ( ) 

{ 

for(unsigned int n=0; n<GetSize ( ) ; n++) 

{ 

if (Get (n) . GetDisplayStatus ( ) != Image :: Display-Selected) continue 
Get(n) . SetDisplayStatus ( Image : : Di splayNormal ) ; 

} 

Image* img = GetCurrent Image () ; 

if (img) img- >SetDisplayStatus ( Image : : DisplaySelected) ; 



* 

* Adding new DICOMObjects to the series 
* 

************************************************** 

bool ImageSeries : :AddDDO (DICGMDataObj ect &ddo, bool destroy _or iginal ) 

'J% bool success = true; 
Z'k bool read = !HasData(); 

ImageSeries tmp_series; 
'dl if (destroy_original ) // we can destroy ddo 

if (read) success=ReadDO ( ddo) ; 
-"^ else success= tmp_serie3 . ReadDO (ddo) ; 

« } 

nj else // we must keep the original => use clone 

r DICGMDataObj ect ddo_tmp; 

success = ddo_tmp . CloneFrom ( &ddo) / 
Pj if ( success) 

if (read) success = ReadDO (ddo_tmp) ; 

else success=tmp_series . ReadDO (ddo_tmp) ; 

^" if ( ! success) 

{ 

AfxMessageBox ( "Cannot add DICOM object to the series", 
MB_ICONEXCLAMATION|MB_OK) ; 

return false; 

} 

if (read) return success; // no need to append 
else return AddSer ies ( tmp_ser ies , true ) ; 

} 

bool ImageSeries : :AddDDOFile (CString filename) 
{ 

DICGMDataObj ect ddo; 

// Load DDO completely, but without RTC 

if ( ddo . LoadFromFile (( char* )( LPCSTR) filename , false) ) 

{ 

return AddDDO(ddo, true); 

} 

else return false; 

} 

void ImageSeries :: AddDICGMRecords (Array<DICOMRecord>& a) 

{ 

int n=0; 

while (n< ( int ) a -GetSize 0 ) 

{ 

if (BelongsToThisSeries (a (n] ) ) 
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AddDDOFile (a [n] 
a . RemoveAt (n) ; 

} 

else n++; 

} 

} 

/********************************************************************* 
* 

* Adding new series to "this" series, assuming "this'* is not empty 
* 

*********************************************************************/ 
bool ImageSeries : : AddSeries ( ImageSeries &s, bool delete_s) 

{ 

int ns=s .GetUpperBound ( ) ; 

if {ns<0) return true;// nothing to do 
int n = GetUpperBound ( ) ; 

if (n<0) return true; // do not add to empty ! 

if (delete_s) Array< Image > : : Include ( s) ; 
else SetSize (n+l+ns+1 ) ; 

for{int i=0; i<=ns; i++) 

{ 

int k=n+i+l; 

if ( !delete_s) Get (k) . CloneFrom ( &s [i] ) ; 

if (k>0) 

{ 

Get (k) .LinkToPalette (Get (0) .m_pPal) ; 

} 

} 

: — r 

Ji // Force layout update 

-I SetDisplayColumns (DisplayColumnsAutomat ic) ; 

SetShowSeriesImageInf o (GetShowSeriesImageInf o ( ) ) ; 

'--z.l return true; 



******************************************************************* 



*" , Test if dr represents an object that belongs to the same series 
as (this) 

Cj 

Bb'ol ImageSeries : :BelongsToThisSeries (DICOMRecord &dr) 

Ci 

'l^J if (GetSize ( ) < = 0) return true; 

return (Get ( 0) . CompareToDICOMRecord ( dr , DICOMRecord :: LevelSeries ) == 0); 

r- 

* 

* Save the series as a set of BMP files 

* in the given directory 
* 

****************************************************** 

bool ImageSeries :: SaveAsImageFiles (CString ^directory, CString prefix) 

( 

if ( IHasData 0 ) return true; 

// Set validated directory and prefix 

directory . TrimLeft ( ) ; directory . TrimRight ( ) ; 

if ( ! : :CreateAndSetCurrentDirectory ( (char*) (LPCSTR) directory) ) 

{ 

AfxMessageBox ( "Cannot set image directory\n" +directory , 

MB_ICONEXCLAMATION|MB_OK) ; 
return false; 

} 

prefix. Replace ("\\/, - ? ! *_ ",NULL) ; 
if (pref ix==" " ) pref ix= " img" ; 
prefix += "_" ; 

pref ix=directory+CSt ring ( " \\ " ) +pref ix ; 

// Store image series 
CString num; 

for(int i=0; i<=GetUpperBound ( ) ; i++) 
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t, prefix, 
. lum) ) 



num. Format ( " %s%03d . l^^K prefix , i + 1 ) ; 
if ( !Get (i) . Wr i teToFi I^num) ) 
{ 

return false; 

} 

} 

return true; 

) 

/********************************************************************* 
* 

* Set image info for all images in the series 
* 

*****************★***************************************************/ 
void ImageSeries : : SetShowSeriesImageInf o (bool show) 

{ 

for(unsigned int i^O; i<GetSize(); i++) Get ( i ). SetShowImage Info ( show) 

} 

bool ImageSeries: :GetShowSeriesImageInf o () 

{ 

if (GetSize ( ) <1) return false; 
return Get{0) , GetShowImage Inf o () ; 

} 



/ 



********************************************************************** 



* Display images 
* 

* Q* *****************************************************************/ 
IiT^ge* ImageSeries : :DisplayImages (CDC *pDC, CPoint pScroll/ * = CPoint ( 0 , 0) * 

'^J // Grab current image pointer 

Image* pimg = GetCurrent Image () ; 
\.l if(!plmg) return NULL; // no images in this series 

"^f // Initialize screen rectangle, if needed 

41 if (m_ScreenRect . Width( ) 0) SetScreenRect ( 1 . 0 ) ; 

// Compute image layout, if needed 
~ if (m_DisplayColumnsChanged) 

{ 

rj SetOpt imal ImageLayout ( ) ; 

m_DisplayColumnsChanged=f alse ; 

} 



a 



y // Display 

if (m_DisplayColumns == 0) // Single image 

[ 

pImg- >DisplayDIB (pDC, pScroll); 

) 

else 

{ 

for(unsigned int n=0; n<GetSize(); n++) 

{ 

Get (n) .DisplayDIB (pDC, pScroll) ; 

} 

1 

return pImg; 

} 

* 

* Set the number of display columns. 
* 

****** ***************** ********************************* **********^ 
bool ImageSeries :: SetDisplayColumns ( int ncol) 

{ 

m_DisplayColumnsChanged = (ncol != m_DisplayColumns) ; 

m_Di splay Columns = ncol; 

return m_DisplayColumnsChanged ; 

} 



Find the optimal multi- 
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*********************************************************************/ 
void ImageSeries: : SetOpt imal ImageLayout ( ) 

{ 

int icount=0, n; 

// Process individual image display 
if (m_Di splayColumns == 0) 

{ 

for (unsigned n=0; n<GetSize(); n++) 

( 

Get(n) .m_ScreenMap. FitlnsideScreenRect (ra_ScreenRect) ; 

} 

return ; 

} 

// Process multiple image display 
for(n=0; n< ( int ) GetSize ( ) ; n++) 

{ 

if (Get (n) . GetDisplayStatus ( ) == Image :: DisplayHidden) continue; 
i count ++; 

) 

if(icount<l) return; // nothing to display 

int nr, best_nc; 

Image* pimg = GetCurrent Image () ; 

if ( ! pImg) return; 

int iw = pImg- >GetWidth ( ) ; 

int ih = pImg- >GetHeight ( ) ; 

const static int d = 16; 

□ 

Jj // Find the best image zooming factor 
fl^ double best_zoom; 

if (m_DisplayColumns> = 0) // Column number was specified 

=^ { 

best_nc = max ( 1 , min (m_DisplayColumns , icount ) ) ; 
nr = ( icount +best_nc - 1 ) /best_nc ; 

best_zoom = min ( (m_ScreenRect . Width () -d* (best_nc + l . 0 ))/( iw*best_nc ) 
(m_ScreenRect .Height ( ) -d* (nr+1 . 0) ) / (ih*nr) ) ; 

else // Column number unknown, find best 

I, { 

double zoom; 
CJ best_20om = 0.0; 

n= for (int nc=l; nc <= l+icount/2; nc++) 

CI ( 

nr = ( icount+nc-1 ) /nc ; 
LJ zoom = min( (m_ScreenRect . Width {) -d* (nc+1 . 0) )/( iw*nc) , 

□ {m_ScreenRect , Height ( ) -d* (nr+1 . 0) ) / {ih*nr) ) ; 

"* if { 20om>best_zoom) 

( 

best_zoom = zoom; best_nc = nc ; 

} 

} 

m_Di splayColumns = best_nc; 

} 

// Find image screen sizes 

nr = ( icount+best_nc- 1 ) /best_nc ; 

int w = max (4, (int) ( iw*best_zoom) ) ; 

int h = max(4, (int) ( ih*best_zoom) ) ; 

int dx = max ( 1 , {m_ScreenRect . Width () -w*best_nc )/ (best_nc+l ) ); 
int dy = max ( 1 , {m_ScreenRect . Height () -h*nr) /( nr+1 ) ); 

// Set screen viewing rectangles for images 
int X, y; 

CRect r; 

for(n-0; n< ( int ) GetSize 0 ; n++) 

{ 

if (Get (n) . GetDisplayStatus ( ) == Image :: DisplayHidden) continue; 
x = dx+(n % best_nc) * (w+dx) ; 
y = dy+(n / best_nc) * (h+dy) ; 
r . SetRect (x,y , x+w,y+h) ; 

Get (n) ,m_ScreenMap. FitlnsideScreenRect (r) ; 
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return; 



} 

/********************************************************************* 
* 

* Alternate between browse and non-browse states 
* 

void ImageSeries: : Swi tchBrowseView ( ) 

{ 

if (m_DisplayColumns == 0) SetDisplayColumns (DisplayColumnsAutomat ic) ; 
else SetDisplayColumns ( 0 ) ; 

} 

/***********************★**************+****************************** 
* 

* Set screen rectangle from a zoom factor 

*******************•***********************************•***************/ 
void ImageSeries :: SetScreenRect (double zoom/*= 1 . 0*/ ) 

{ 

if(zoom<0.1 II zoom > 10.0) return; 
/ / Find screen size 

( (CMDIFrameWnd*) AfxGetMainWndO ) - >MDIGetAct ive () - >Ge tCl ientRect (m_ScreenRect ) 
m_ScreenRect . BottomRight ( ) . y -= 20; 
m_ScreenRect . BottomRight 0 . X -= 20; 
if ( zoom ! =1 . 0) // zoom 

{ 



int 


w 


= max 


(64, 


int 


h 


= max 


(64, 


int 


X 


= max 


(0, 


int 


y 


= max 


(0, 



J] m_ScreenRect . SetRect (x , y , x+w, y+h) ; 

J SetOpt imallmageLayout () ; 

} ^ 

* ~ Zoom and offset images 

*l — £- 
s 

•k ifir^ -k * * -k -k * -k -k -k * * * -k *★****************************************★******★**/ 
vc^'d ImageSeries :: Zoomlmages (double zoom) 

{ 

~-4 for(unsigned int n=0; n<GetSize(); n++) 
Get(n) . Set ImageRect Zoom ( zoom) ; 

) ' 

void ImageSeries : :Off set Images (double dx , double dy) 

{ 

for(unsigned int n=0; n<GetSize(); n++) 

( 

Get (n) . Set ImageRectOf f set (dx , dy ) ; 

) 

} 

double ImageSeries : :GetZoom ( ) 

{ 

Image* pimg = GetCurrent Image () ; 
if(plmg) return pImg - >Get Zoom ( ) ; 

else return 1.0; // no zoom 

} 
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// Palette. h: interface for tj^^galette class. 
// 



1 1 1 1 1 / 1 1 1 1 1 1 1 1 / 1 / 1 1 1 1 1 / 1 1 11 1 llWl 1 1 / 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 flWl I 



#if ! defined ( AFX_PALETTE_H_INCLUDED_) 
^define AFX_PALETTE_H_INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // MSC_VER > 1000 



class Palette 

{ 

publ ic : 
bool 
int 



p_act ive ; 
p_S i z e ; 



Backup ( ) ; 

Negate (bool RGB=false) ; 

Get_Pal_minmax ( longSc pmin, long& pmax, bool RGB = false) ; 
CreateNewPalette (bool Metheus, long max_color, bool rgb) 
CloneFromPalette ( Palette *pPal) ; 
I sCorrectPalette ( ) ; 

LoadPalette (CDC* pDC, bool RGB=false) ; 
SetPalette ( ) / 

SetPalette ( long* color_map, long color_map_size) / 
SetPalette ( long offset, double stretch) ; 



void 
void 
void 
bool 
bool 
bool 
bool 
bool 
bool 
bool 

inline long GetPale t teColor ( long index); 
^.f Palette ( ) ; 

^il Palette (bool Metheus, long max_color, bool rgb) ; 
01 -Palette ( ) ; 



pr.ivate : 

"^'^ bool 

""■J bool 
int 
long 
USHORT* 
USHORT* 

= HPALETTE 



void 



p_Metheus ; 
p_update ; 
p_f actor ; 
p_maxCol ; 
p_Val; 

p_Val_back.up; 
p_Hpa 1 ; 

DeletePalette ( ) 



* I-] Return palette color at the given index 
* 

*********************************************** 
inline long Palet te :: Get PaletteColor ( long index) 



if(index<0) index=0; 

else if ( index>=p_Size) index=p_Size - 1 ; 

return p_Val [ index] ; 



ttendif // ! def ined (AFX_PALETTE_H_INCLUDED_) 
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imi 



f the Palette class. 
lllll/llllllllll/llllfflllllllfllTT/ll/ 



II Palette. cpp: implementat 
// 

lllllltlllllllllllltlllllll 

^include "stdafx.h" 
# include " . . \DCM.h" 
^include " Palette. h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

^define new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 H 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 // 1 1 n 1 1 1 n / f 

Palette : : Palette ( ) 
{ 

p_Val = NULL; p_Val_backup = NULL; p_Hpal = NULL; 

p_update=true ; p_Metheus = false; 

p_f actor = 1; p_maxCol = 255; 

p_active = false; p_Size = 0; 

) 

Palette :: Palette (bool Metheus, long max_color, bool rgb) 



p_Val = NULL; p_Val_backup = NULL; 



CreateNewPalette (Metheus , max_color, rgb) 

} 

Palgtte : : -Palette ( ) 
2f)eletePalette ( ) ; 

voidi Palette : : DeletePalet te ( ) 
{ 



p_Hpal = NULL; 



'^ht (p_Val) 
dif (p_Val_back.up) 
f-jLf (p_Hpal) 

= p_Val = NULL; 
l='^3_update = true ; 
f^_f actor = 1; 
^"p_active = false; 



} ''i 



delete [] p_Val; 
delete [ ] p_Va l_ba c kup ; 
: : DeleteObj ect (p_Hpal ) ; 

p_Val_backup = NULL; 
p_Metheus = false; 
p_maxCol = 25 5; 
p_Size = 0; 



p_Hpal = NULL; 



*************************************************************** 



* ^4^eset palette 
* 

************************************************ 

bool Palette :: CreateNewPalette (bool Metheus, long max_color, bool rgb) 
{ 

DeletePalette ( ) ; 

p_Metheus=Metheus ; p_factor=l; p_maxCol=max_color ; 
if (p_Metheus) 

{ 

p_Size=max_color+l ; p_f actor=USHRT_MAX/ (p_Size - 1 ) ; 

} 

else 

{ 

f ( ! theApp . app_SupportedPalet teSize ) 

p_Size=128; p_factor=2; // No support for 8-bit palettes 

Ise 

p_Size=256; p_factor=l; 



if (p_maxCol>=p_Size) p_maxCol=p_Size - 1 ; 

p_Val=0; p_Val_backup=0 ; 

try 

{ 
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p_Val_backup=new USI^^^p_Size] 

if (p_Val_backup) ^Kl = new USHORT {p_Size3 
p_active = ( p_Val ! =NULL) ; 

} 

catch (...) 



Af xMessageBox ( " Low memory, cannot allocate image palette", 

MB_0K|MB_IC0NEXCLAMATI0N) ; 
p_a ctive = false; 
return false; 

) 

if (p_act ive) 

{ 

for (USHORT i=0; i<p_Size; i++) p_Val(i]=i; 
Backup ( ) ; 

} 

p_upda t e = t rue ; 

// Only grayscale palettes 
if(p_active) p_active= ! rgb; 
return true ; 

} 

* 

* Copying palettes 
* 

* *************************************************** 
bODl Palette :: CloneFromPalette ( Palette *pPal) 

y§ if(!pPal) return false; 

ifl if( ! CreateNewPalette (pPal - >p_Metheus , pPal - >p_maxCol , 

! (pPal->p_active) ) ) return false; 

if (pPal->p_Val) 

..n memcpy (p_Val , pPal->p_Val, p_Size* ( sizeof USHORT)); 

S; Backup ( ) ; 

Hi ) 

s return true ; 

******************************************************* 

Set identity palette 

*^ § 

n ^ 
i^ol Palette :: SetPalette ( ) 

if{!p_active || !p_Val) return false; 
for (USHORT i=0; i<p_Si2e; i++) p_Val[i]=i; 
p_update=true ; 
return true; 

} 

* 

* General (from array) palette update 

******************************************************** 

bool Palette :: SetPalette (long *color_map, long color_map_size ) 

{ 

if(!p_active || !p_Val) return false; 
1 ong i ; 

long imax= ( p_Size>color_map_3ize ? color_map_size : p_Size ) ; 
for(i=0; i<imax; i++) p_Val [ i] = (USHORT) labs (color_map [ i] ) ; 

for(i=imax; i<p_Size; i++) p_Val [ i] =p_Val [ imax-1] ; 
p_update=true ; 
return true ; 

} 

* 

* Linear palette update for Fast Color/Contrast 
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ick-k-k-Htir-kltiririr-kiririririiiririritifk-k** ^^^^Hf •k-k-k-k*-k-k-k-kir*-kit1tifk-k*'k*itiritit*-kifk*ieir -kiriritiririr-kj 

bool Palette :: SetPalette ( long offset, double stretch) 

{ 

if(!p_active || !p_Val) return false; 

long i, n; 
long l_of f set=of f set < < 1 0 ; 
long l_stretch = ( long) ( 1024 * stretch) ; 
for(i=0; i<p_Size; i++) 

{ 

n= ( l_of f set+ ( (long) p_Val_back.up [ i] ) *l_st retch) ; 
if (n<=0) p_Val [i] =0; 
else 

{ 

n > > = 10; 

if ( n>=p_maxCol ) n=p_maxCol - 1 ; 
p_Val [i] = (USHORT) (n) ; 

} 

} 

p_upda t e = t rue ; 
return true ; 



* 

Create and load palette into the given DC 

* ^ J 

* ***********************************************************^ 
bSIl Palette : :LoadPalette (CDC *pDC, bool RGB) 

•■z,\ if(!p_Val) return false; // cannot allocate palette 

"jf if ( ! p_act ive ) return true; // disabled palettes 
long i ; 

^=1 if ( ! p_Metheus) // load Windows palette 

= if ( ! p_update) // same palette as before, skip palette reload 

( 

Li : :SelectPalette ( pDC- >m_hDC , p_Hpal , TRUE) ; 

pDC- >RealizePalette ( ) ; 

p_update=f alse ; 
ni return true; 

Si } 

BYTE r,g,b; 

21 int cPalette = sizeof ( LOGPALETTE) +sizeof ( PALETTEENTRY) *p_Si2e ; 

y LOGPALETTE* pPal = ( LOGPALETTE* ) new BYTE [ cPale t t e ] ; 

if(!pPal) return false; 

pPal - >palVersion = 0x300; 

pPal - >palNumEntries = (unsigned short ) p_Size ; 

for(i = 0; i<p_Size; i++ ) 

{ 

if (RGB) 
{ 

r = GetRValue (p_Val [i] ) 
g=GetGValue (p_Val [i] ) 
b=GetBValue (p_Val [i] ) 

) 

else r = g = b=p_f actor* (BYTE) min (p_Val [i] , p_Size-l) 

pPal - >palPalEntry [ i ] . peRed = r; 
pPal - >palPalEntry [ i] . peGreen = g; 
pPal - >palPalEntry [ i] . peBlue = b; 
pPal - >palPalEntry [ i] . peFlags = NULL; 

} 

DeleteOb j ect (p_Hpal ) ; // free display memory 
p_Hpal = CreatePalette (pPal) ; 
delete [] (BYTE*)pPal; 
if(!p_Hpal) return false; 

: :SelectPalette(pDC->m_hDC,p_Hpal, FALSE) ; 
pDC->Reali2ePalette ( ) ; 

DeleteObj ect (p_Hpal ) ; // free display memory 

} 

else // Metheus device 
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if ( ! p_update) returi^^Bie; //same palette as before 
USHORT* p_Val_tmp = new USHORT [p_Size] ; 
if ( ! p_Val_tmp) return false; 

for(i=0; i<p_Si2e; i++) p_Val_tmp [ i ] =p_f actor*p_Val [ i ] ; 
if (Me theusLoadGray Palette {pDC- >Ge tSaf eHdc () , 

theApp . app_DynamicPaletteStart , p_Si2e , p_Val_tmp) ==FALSE) 

{ 

delete [] p_Val_tmp; 
return false; 

} 

delete [] p_Val_tmp; 

} 

p_update= false ; 
return true; 



★ 

* Find min and max palette colors 
★ 

★*******★****★*★************★***********************************************/ 
void Palette : :Get_Pal_minmax ( long ficpmin, long &pmax, bool RGB) 

{ 

1 ong i , p ; 

pmin=0; pmax=l; 
p if(!p_Val) return; 
jj if(!RGB) // greyscale 

pmin=p_Val [ 0 1 ; pmax=pmin+l; 
dl for(i=l; i<p_Size; i++) 

if (p_Val [ i] >pmax) pmax=p_Val [ i ] ; 
else if (p_Val [ i] <pmin) pmin=p_Val [ i ] ; 

el se 
' { 

f== BYTE r,g,b; 

r1 pmin=GetRValue (p_Val [0] ) ; pmax=pmin+l; 

=1 for(i=0; i<p_Size; i++) 

V: { 

y p=p_Val [i] ; 

P r=GetRValue (p) ; g=GetGValue (p) ; b=GetBValue ( p) ; 

if(r>pmax) pmax^r; 
else if (r<pmin) pmin=r; 
if(g>pmax) pmax=g; 
else if (g<pmin) pmin=g; 
if(b>pmax) pmax=b; 
else if (b<pmin) pmin=b; 

} 



* 

* Invert palette colors 
* 

***************************************************** 
void Palette : :Negate (bool RGB) 

{ 

long i, p; 

if(!p_active || !p_Val) return; 

if ( !RGB) 

{ 

for(i=0; i<p_Size; i++) 

{ 

p = p_maxCol- 1- ( long) p_Val [i] ; 

if(p<0) p=0; else if (p>=p_maxCol ) p=p_maxCol - 1 ; 
p_Val [i] = (USHORT) p; 

} 
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else 



BYTE r, be- 
fore i=0; i<p_Size; 



r=GetRValue {p_Val [i] ) ; g=GetGValue (p_Val [i] ) ; b=GetBValue (p_Val [i] ) 
p_Val [i] = (USHORT) RGB (255 -r, 255 -g, 255 -b) ; 



p_update=true ; 



* Return "true" if palette supports the same color range as the image 
* 

*************************************************************************** 
bool Palette : : I sCorrect Palette ( ) 



return (p_factor==l | | p_Metheus) ; 



Save current palette colors 



vSid Palette: :BackUp() 

if(!p_active || !p_Val || ! p_Val_backup || !p_Size) return; 
memcpy (p_Val_backup, p_Val, p_Si2e* ( sizeof USHORT)); 



a 

CI 

nj 
a 



I 
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// ScreenMap. h: interface f 
// 

//////////////////////////// 



iWii 



e ScreenMap class. 
/////////////////////////////// 



^if ! defined (AFX_SCREENMAP_H C4 AA3 744_77E9_1 1D2_9586_00105A21774 F INCLUDED_) 

*f define AFX_SCREENMAP_H C4 AA3 74 4_77E9_1 1D2_95 86_00105A21 774 F INCLUDED_ 



#if _MSC_VER >= 1000 
#pragma once 

llendif // MSG VER >= 1000 



class ScreenMap 

{ 



public : 

CRect 
CRect 



void 

void 

void 

void 

bool 

bool 

bool 

bool 

double 

CSize 

CPoint 

CPoint 

CPoint 

CPoint 

CRect 

CRect 

CRect 

CRect 



J5 



crScreen; 
cr Image ; 

Fit InsideScreenRect (CRect screen) ; 
ValidateZoom (doubled x) ; 
Rotate(int degrees); 

SetLef tTopScreenPoint ( int x, int y) ; 
Initialize (const CRect cr) ; 

Screen_in_Image (const CPoint screen?, const int bound=0) 
Screen_in_Image ( const CRect screenR, const int bound=0) ; 
SerializeScreenMap (FILE* fp, bool is_loading) ; 
Get Zoom ( ) ; 

GetScreenCenteredSize { ) ; 
Image_to_Screen ( const CPoint cpl) ; 

Image_to_Screen (const CPoint cpS, const CPoint offset); 
Screen_to_Image (const CPoint cpS) ; 

Screen_to_Image (const CPoint cpS, const CPoint offset) ; 
Image_to_Screen (const CRect cri); 

Image_to_Screen (const CRect crI, const CPoint offset); 
Screen_to_Image (const CRect crS) ; 

Screen_to_Image (const CRect crS, const CPoint offset); 



r 



ScreenMap { ) ; 
ScreenMap { ScreenMap& 
-ScreenMap ( ) ; 
vate : 



sm) 



ifMidif // ! defined ( AFX_SCREENMAP_H C4AA3744_77E9_11D2_9586_00105A21774F INCLUDED_ 
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// ScreenMap. cpp : implementa^^m of the ScreenMap class. 
////////////////////////////^7//////////////////////////////////7//// 

^include "stdafx.h" 
# include " . . \DCM.h" 
It include " ScreenMap . h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

itdefine new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
ScreenMap : : ScreenMap ( ) 

{ 
} 

ScreenMap: : ScreenMap ( ScreenMap& sm) 

( 

cr Image = sm. cr Image; 
crScreen = sm.crScreen; 

sSeenMap: : -ScreenMap ( ) 



bqpl ScreenMap :: Initialize (const CRect cr) 

if 5 cr Image = cr,- 
Z\ crScreen=cr; 
return true; 

Oiipint ScreenMap :: Screen_to_Image ( const CPoint cpS) 

CPoint p; 
S.j p = cpS-crScreen . TopLef t ( ) ; 

pi p.x= (p . x*crlmage . Width 0) /crScreen . Width () ; 
5f p.y= {p . y*crlmage . Height 0) /crScreen . Height {) ; 
return (p+cr Image . TopLef t ()) ; 

} 

CPoint ScreenMap: : Screen_to_Image (const CPoint cpS, const CPoint offset) 

( 

return Screen_to_Image (cpS-of f set ) ; 

} 

CRect ScreenMap :: Screen_to_Image (const CRect crS) 

{ 

return CRect ( this- >Screen_to_Image (crS . TopLef t ( ) ) , 

this- >Screen_to_Image ( crS . Bot tomRight ( ) ) ) ; 

} 

CRect ScreenMap :: Screen_to__Image (const CRect crS, const CPoint offset) 

{ 

CRect r=crS ; 

r -Of f setRect (of f set) ; 

return Screen_to_Image (r ) ; 

} 



CPoint ScreenMap :: Image_to_Screen (const CPoint cpl) 

( 

CPoint p; 

p = cpl -crimage . TopLef t 0 ; 

p.x= {p.x*crScreen. Width( ) ) /crimage . Width ( ) ; 
P-y= ( p. y* crScreen. Height ( ) ) /crimage .Height ( ) ; 
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return (p+crScreen . TopLe^^Bl ) ; 



• 



} _ 

CPoint ScreenMap :: Image_to_Screen ( const CPoint cpS, const CPoint offset) 

{ 

return Image_to_Screen ( cpS) +of f set ; 

} 

CRect ScreenMap :: Image_to_Screen ( const CRect cri) 

{ 

return CRect ( this- > Image_to_Screen (cr I . TopLef t ( ) ) , 

this- > Image_to_Screen (cr I . BottomRight ( ) ) ) ; 

} 

CRect ScreenMap :: Image_to_Screen ( const CRect crS, const CPoint offset) 

{ 

CRect r=Image_to_Screen(crS) ; 
r -Of f setRect (offset) ; 
return r; 

} 



void ScreenMap : rValidateZoom (double & x) 
{ 

if (x*cr Image .Width ( ) < 16 ) x=16 . 0/cr Image . Width ( ) ; 

else if (x*cr Image . Width () >4 096 ) x=4 096 . 0/crImage . Width () ; 

if (x*cr Image .Height()<16) x-16. 0/cr Image . Height ( ) ; 

else if {x*crlmage . Height 0 >4096) x = 4 096 . 0/cr Image . Height () ; 

int w_screen=4 * ( ( 2+ ( int )( 0 . 5+x*cr Image . Width ())) /4 ); 

int h_screen=4 * ( ( 2+ ( int )( 0 . 5+x*cr Image . Height ())) /4 ); 
PI crScreen . SetRect ( crScreen . TopLef t (), x , crScreen . TopLef t (), y , 
"71 crScreen . TopLef t ( ) .x+w_screen, 

crScreen . TopLef t ( ) .y+h_screen ) ; 

}0i 

CBlze ScreenMap: : Get ScreenCenteredSize ( ) 

return CSize ( crScreen . right+ crScreen . lef t , crScreen . top+cr Screen .bottom) 

void ScreenMap :: SetLef tTopScreenPoint ( int x, int y) 
Uh if(x<0) X=0; 

if(y<0) y=:0; 

CSize of fset=CPoint (x , y) -crScreen , TopLef t {) ; 
lU crScreen . Of f setRect (of f set ) ; 

N 

§3ol ScreenMap :: Screen_in_Image ( const CPoint screenP, const int bound) 

w 

CPoint p=Screen_to_Image ( screen?) ; 

CRect ir=crlmage; ir . Def lateRect (bound , bound) ; 

return (ir . PtInRect (p) ==TRUE) ; 

} 

bool ScreenMap :: Screen_in_Image ( const CRect screenR, const int bound) 

{ 

return (Screen_in_Image ( screenR . TopLef t (), bound) && 

Screen_in_Image ( screenR . BottomRight ( ) , bound)) ; 

} 

* Rotate screen map rectangles by 90 degrees. 
* 

************************************************* 
void ScreenMap :: Rotate ( int degrees) 

{ 

if (degrees != 90 && degrees != 270) return; // nothing to do 
crScreen . SetRect ( crScreen .left, crScreen . top , 

crScreen. lef t+crScreen . Height ( ) , 

crScreen . top+crScreen . Width ( ) ) ; 

cr Image .SetRect (cr Image . lef t , cr Image .top, 
crimage . lef t+cr Image . Height ( ) , 
cr Image . top+crlmage . Width ( ) ); 
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************************** 



********************************* 



* Serialize this screen map. 

* Used as a part of image serialization 

■k 

bool ScreenMap :: SerializeScreenMap ( FILE *fp, bool is_loading) 

( 

int ixO , ixl , iyO , iyl , sxO , sxl , syO , syl ; 
if ( ! is_loading) 



ixO = cr Image . left ; 
iyO = cr Image. top; 
sxO = crScreen . lef t ; 
syO = crScreen . top; 

) 

if ( ! : : Serialize Integer ( f p, 
if ( ! : : Serialize Integer ( f p, 
if ( ! : : Serialize Integer ( f p, 
if ( ! : : Serialize Integer ( f p, 
if ( ! : : Serialize Integer ( f p, 
if ( ! : : Serialize Integer ( f p, 
if ( ! : : Serial ize Integer ( f p, 
if ( ! : : Serial ize Integer ( f p, 
if ( ! : : Serial ize Integer ( f p, 
if ( ! : : Serial ize Integer ( f p, 

if ( is_loading) 



ixl 
iyl 
sxl 
syl 

ixO , 
ixl , 
iyO, 

iyl. 

sxO , 
sxl , 
syO, 
syl , 
ixl, 
iyO , 



cr Image . right ; 
crimage . bottom; 
crScreen . right ; 
crScreen . bottom; 



is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 


is 


_loading) ) 


return 


false 



crimage . SetRect ( ixO , iyO , ixl , iyl ) ; 
crScreen . SetRect ( sxO , syO , sxl , syl ) ; 



'-•2 return true; 

4 ************************************************************* 

*= Place "crScreen'* inside given "screen" 
*nr* 

\Sid ScreenMap :: Fit InsideScreenRect (CRect screen) 

fij 

double c = min ( screen . Width ()/( 1 . 0 + crScreen . Width ()) , 

screen . Height ( ) / { 1 . 0 + crScreen . Height ( ) ) ) ; 
LJ int w = ( int ) max {4 , c*crScreen . Width ( ) ) ; 
Q int h = ( int ) max (4 , c*crScreen . Height ()) ; 

int X = ( screen . TopLeft (). x + screen . BottomRight (), x) /2 ; 

int y = ( screen . TopLeft (). y+screen . BottomRight (). y) /2 ; 

crScreen = CRect (x-w/2 , y-h/ 2 , x+w/2 , y+h/ 2 ) ; 



* Get current map zoom factor 
* 

************************************************** 
double ScreenMap :: Get Zoom ( ) 

{ 

return ( crScreen . Width ()+0.0001)/( crimage , Width ( ) +0 . 0001 ) ; 



3 



# i f ! de f ined { AFX_AEOPT I ONS 
#define AFX_AEOPTIONS_DIALOi 
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D^^G_H INCLUDED_) 

'G^PP INCLUDED^ 



tjif _MSC_VER > 1000 
#pragina once 

#endif // _MSC_VER > 1000 

// AEOpt ions_Dialog . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// AEOpt ions_Dialog dialog 

class AEOpt ions_Dialog : public CDialog 

( 

// Construction 
public : 

virtual int DoModal (Applicat ionEnt i tyList *AEarray) ; 

AEOptions_Dialog (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

//{ {AFX_DATA (AEOpt ions_Dialog) 

enum { IDD = IDD_DIALOG_AE_OPTIONS }; 

BOOL m_useMoveToRetr ieve ; 

int m_Port ; 

int m_PortServer ; 

int m_Timeout; 

est ring m_Comments; 

CIPAddressCtrl m_IP; 
Tj CComboBox m_AECoTnboList ; 

est ring m_Title; 
tl //}}AFX_DATA 



/^ 5 Overrides 

.r // ClassWizard generated virtual function overrides 
-4J //{ (afX_VIRTUAL (AEOptions_Dialog) 
protected: 

f%l virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

//} }afx_virtual 

3 

Implementation 
fgjDtected : 

f'f // Generated message map functions 

//( {AFX_MSG (AEOpt ions_Dialog) 
ri virtual BOOL OnlnitDialog { ) ; 

virtual void OnOK(); 

afx_msg void OnCloseupComboAeList { ) ; 
afx_msg void OnAENew(); 
afx_msg void OnAEDelete ( ) ; 
af x_msg void OnAeClone ( ) ; 
afx_msg void OnSelchangeComboAeLi st ( ) ; 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

int m_List Index ; 

Appl i cat ionEnt i tyList *m_AEarray ; 



void ResetAEList ( int new_selection=0) ; 

void UpdateAllFields (bool from_data_to_dialog=true) ; 

}; 

// ( ( AFX_INSERT_LOCATION } } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#endif // ! defined (AFX_AEOPTIONS_DIALOG_H INCLUDED_) 
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// AEOpt ions_Dialog . cpp : i 
// 
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^include "stdafx.h" 
Jfinclude " . . \Resource . h" 
^include "AEOpt ions_Dialog . h" 

Sifdef _DEBUG 
^define new DEBUG_NEW 
Sundef THIS_FILE 

static char THIS_FILE[] = FILE ; 

nendit 

///////////////////////////////////////////////////////////////////////////// 
// AEOptions_Dialog dialog 



AEOptions_Dialog : : AEOptions_Dialog (CWnd* pParent /*=NULL*/) 
: CDialog (AEOpt ions_Dialog :: IDD, pParent) 

{ 

/ / { { AFX_DATA_ I N I T ( AEOp t i on s_D i a 1 og ) 

m_useMoveToRetrieve = FALSE; 

m_Port = 0; 

m_PortServer = 0; 

m_Timeout = 0 ; 

m_Comments = _T ( " " ) ; 

m_Title = _T ( " " ) ; 

// ) )AFX_DATA_INIT 

m_List lndex=0 ; 

" 

01 

vdld AEOptions Dialog :: DoDataExchange (CDataExchange* pDX) 

_~ CDialog: : DoDataExchange (pDX) ; 

//{ {AFX_DATA_MAP (AEOptions_Dialog) 
-Jj DDX_Check (pDX , IDC_CHECK_MOVETOGET , m_useMoveToRe t r ieve ) 

DDX_Text (pDX, IDC_ED I T_PORT , m_Port); 
■•'^ DDV_MinMaxInt (pDX, m_Port , 0, 70000); 
2 DDX_Text (pDX, IDC_EDIT_PORT_SERVER , m_Port Server ) ; 
M DDV_MinMaxInt (pDX, m_PortServer , 1, 70000); 
P=3 DDX_Text (pDX, IDC_EDIT_TIMEOUT , m_Timeout ) ; 

DDV_MinMaxInt (pDX, m_Timeout, 0, 100000); 
MJ DDX_Text (pDX, IDC_EDIT_COMMENTS , m_Comments) ; 
DDV_MaxChar9 (pDX , m_Comment s , 63); 
DDX_Control (pDX, IDC_AE_IPADDRESS , m_IP) ; 
DDX_Control (pDX, IDC_COiyiBO_AE_LI ST , m_AEComboLi s t ) ; 
DDX_Text (pDX, IDC_ED IT_T ITLE , m_Title) ; 
DDV_MaxChars (pDX, m_Title, 16); 
// } }AFX_DATA_MAP 



B EG I N_ME S S AGE_MAP ( AEOp t i on s_D ialog, CDialog) 
// ( (AFX_MSG_MAP (AEOptions_Dialog) 

ON_CBN_CLOSEUP ( IDC_COMBO_AE_L I ST , OnCloseupComboAeLi s t ) 
ON_BN_CLICKED ( ID_AE_NEW, OnAENew) 
ON_BN_CLICKED( ID_AE_DELETE, OnAEDelete) 
ON_BN_CL I CKED ( I D_AE_CLONE , OnAeCl one ) 

ON_CBN_SELCHANGE ( IDC_COMBO_AE_LI ST , OnSe IchangeComboAeLi St ) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// AEOpt ion9_Dialog message handlers 

/**********★***************★************************************************* 
* 

* Display modal dialog for AE setup 
* 

***********★****************************************************************/ 
int AEOpt ions_Dialog :: DoModal (ApplicationEntityList *AEarray) 

( 

if(!AEarray) return -1; 
m_AEarray = AEarray; 
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m_List Index=m_AEarray- > 
CDialog : : DoModal ( ) ; 
return m_Li st Index ; 
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Cj^^^r rent Index 0 ; 



Initialize all parameter fields 



BOOL AEOptions_Dialog : : OnlnitDialog ( ) 

{ 

CDialog: rOnlnitDialog { ) ; 
ResetAEList (m_List Index) ; 
GotoDlgCtrl (GetDlgl tern { IDCANCEL) ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

/************************************************************* 
* 

* Update all parameter fields 
* 

****************************************************************************/ 
void AEOptions_Dialog : : UpdateAl IFields (bool f rom_data_to_dialog) 



int ind = m_AEComboList . GetCurSel ( ) 
if (f rom_data_to_dialog) 



if (ind>=: (int) (m_AEarray->GetSize 0 ) || ind<0) ind=m_List Index ; 
else m_List Index=ind; 
01 ApplicationEntity* a = & (m_AEarray- >Get ( ind) ) ; 

m_I P. Set Address (a- >ae_IPl , a->ae_IP2 , a->ae_IP3 , a->ae_IP4 ) ; 
m_Title=CString (a->ae_Title) ; 

m_Port=a- >ae_Port ; m_Port Server=a- >ae_PortServer ; 
'4.1 m_Timeout = a- >ae_Timeout ; 

•J% m_Comment s = CString (a- >ae_Comments) ; 

51 m_useMoveToRetrieve=a- >ae_useMoveAsGet ; 

UpdateData (FALSE) ; 

^ ) 

Q 



else 
{ 



UpdateData (TRUE) ; 

lO if (ind>= (int) (m_AEarray- >GetSize ( ) ) | | ind<0) ind=m_Li st Index ; 

else m_List Index=ind; 

CString location; m_AEComboList , GetLBText ( ind , locat ion) ; 

^_ BYTE ipl, ip2, ip3 , ip4 ; m_I P . Get Address ( ipl , ip2, ip3 , ip4 ) ; 

Q m_AEarray->Get (ind) . SetApplicat ionEnt ity ((char*) ( LPCSTR) m_Ti t le , 

ipl, ip2, ip3 , ip4,m_Port, 

m_PortServer ,m_Timeout , (char*) (LPCSTR) location, 
( char* ) (LPCSTR) m Comments, m useMoveToRetrieve==TRUE) 



C3 



} 



Combo List message handler 



********★***********+************************★******************************/ 
void AEOptions_Dialog : : OnCloseupComboAeLi st ( ) 

{ 

int n; 

int ind = m_AEComboList . GetCurSel () ; 
CString info; 

m_AEComboList . GetWindowText ( info) ; 

if (ind != CB_ERR) 

{ 

// If a valid choice was made from a listbox, 
// update all AE parameters 
m_Li st Index = ind; 
UpdateAllFields ( true) ; 

) 

else if (info. IsEmpty 0 == TRUE) 
{ 
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MainFrm.cpp 10/27/00 
// MainFrm.cpp : implement a t^^^of the CMainFrame class 

^include "stdafx.h" 
l^include "DCM.h" 
IJinclude "MainFrm.h" 

Sifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE(] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame 

IMPLEMENT_DYNAMIC (CMainFrame , CMDI FrameWnd) 

BEGIN_MESSAGE_MAP (CMainFrame , CMDI FrameWnd) 
/ / { { AFX_MSG_MAP ( CMa inFrame ) 
ON_WM_CREATE ( ) 

ON_COMMAND ( ID_VI EW_TOOLBAR , OnViewToolbar ) 

ON_UPDATE_COMMAND_UI ( I D_VI EW_TOOLBAR , OnUpda t e Vi e wToo Ibar ) 
ON_WM_DROPFILES ( ) 

// } }afx_msg_map 

ON_UPDATE_COMMAND_UI ( ID_PROGRESS_STATUS , OnUpda te ProgressStatus ) 

// Support dropdown toolbar buttons 
P=l ON_NOTIFY(TBN_DROPDOWN, AFX_IDW_TOOLBAR , OnToolbarDropDown) 

// Global help commands 
41 ON_COMMAND( ID_HELP_FINDER, CMD I FrameWnd : : OnHe IpFinder ) 
Ol ON_COMMAND( ID_HELP, CMDI FrameWnd :: OnHe Ip ) 

ON_COMMAND( ID_CONTEXT_HELP, CMDI FrameWnd : : OnCont extHe Ip ) 
T1: ON_COMMAND ( ID_DEFAULT_HELP, CMDI FrameWnd : : OnHelpFinder ) 

eM_message_map ( ) 

Static UINT indicators tl = 

MJ ID_SEPARATOR, // status line indicator 

£ ID_PROGRESS_STATUS , 

ID_INDICATOR_CAPS , 
L,^ / / I D_ IND I CATOR^NUM , 
p //ID_INDICATOR_SCRL, 
fli I D_D I CT I ONAR Y_S T ATUS 

B// /////////////////////////////////////////////////////////////////// ////// 
£1 CMainFrame construction/destruction 

CMainFrame : : CMainFrame ( ) 

{ 

m_showToolbars=true ; 

/* Dummy string to size progress indicator in the status bar */ 
m_paneString=CString ( ' ',60); 

} 

CMainFrame : : -CMainFrame ( ) 

{ ^ 

} 

int CMainFrame : :OnCreate (LPCREATESTRUCT IpCreateStruct ) 
( 

if (CMDIFrameWnd: :OnCreate (IpCreateStruct) == -1) return -1; 
ShowWindow(SW_MAXIMIZE) ; 

// Create application toolbars 
if ( !m_ToolBarBasic. Create IE (this, 3 2,32, 
IDR_TOOLBAR_BASIC) ) 

{ 

return -1; // fail to create 

} 

m_ToolBarBasic . AttachDropDown ( ID_BUTTON_ROI , IDR_DCMTYPE, ID_BUTTON_SELECT_RECT) 
m_ToolBarBasic .AttachDropDown( ID_VIEW_FLIP, IDR_DCMTYPE, ID_VIEW_FLI P_VERTICAL) ; 
m_ToolBarBasic .AttachDropDown ( ID_BUTTON_MEASURE , IDR_DCMTYPE, 

ID BUTTON_MEASURE_RULER) ; 
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n^^ateIE(this, 3 2, 32, 



if ( !m_ToolBarMultif rame 
I DR_TOOLBAR_MULT I FRA^ 

{ 

return -1; // fail to create 

} 

m_ToolBarMultif rame. AttachDropDown( ID_BROWSE_FRAME, IDR_DCMTYPE, 

ID_FRAMES_LAYOUT_STACK) ; 

// Create application dialog bar 
if ( !m_wndDlgBar -Create (this, IDD_BAR_INFO , 
CBRS_ALIGN_RIGHT, AFX_IDW_DI ALOGBAR) ) 

{ 

TRACEO Failed to create dialogbar\n" ) ; 
return -1; // fail to create 

} 

// Create animated logo 

if ( !m_Animate. Create (WS_CHILD | WS_VISIBLE | ACS_AUTOPLAY , 
CRect (0, 0, 80, 60) , this, 0) || 
!m_Animate,Open(IDR_AVI_DCM) ) 

{ 

TRACEO (" Failed to create animation control\n"); 
return -1; // fail to create 

} 

// Create application ReBar 
if (! m_ReBar . Create ( this , 0 ) || 

!m_ReBar .AddBar (&m_Animate, NULL, NULL, RBBS_FIXEDBMP | RBBS_FIXEDS IZE) || 
! m_ReBar . AddBar ( &m_ToolBarBasic) || 
r% ! m_ReBar . AddBar { &m_ToolBarMult if rame) || 

^: !m ReBar , AddBar ( £cm wndDlgBar) ) 

yl TRACEO (" Failed to create rebar\n"); 

■j% return -1; // fail to create 

-Jj // Create application status bar 
if ( !m_StatusBar . Create (this) || 
Z\ ! m_StatusBar . Set Indicators ( indicators , 

sizeof (indicators) /sizeof (UINT) ) ) 

{ 

Li TRACEO ('• Failed to create status bar\n" ) ; 

ks. return -1; // fail to create 

y } 

: I ; 

= is' 

'%J // Insert image counter into multiframe toolbar 
f=l m_ToolBarMultif rame .MakeCStatic (ID_FRAME_NUMBER) ; 
ShowFrameNumber ( - 1 ) ; 

// Size progress bar 
CClientDC dc (this) ; 

SIZE size=dc . GetTextExtent (m_paneString) ; 

int index=m_StatusBar . CommandToIndex ( ID_PROGRESS_STATUS) ; 

m_StatusBar. Set Pane Info ( index, ID__PROGRESS_STATUS , SBPS_NORMAL, size . cx) / 

// Drag-and-drop file support 
DragAcceptFi les { ) ; 

return 0; 

} 

BOOL CMainFrame : : PreCreateWindow(CREATESTRUCT& cs) 

{ 

// Size the main frame window to the screen size and center it 
return CMDIFrameWnd : : PreCreateWindow ( cs ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame diagnostics 

#ifdef _DEBUG 

void CMainFrame : :AssertValid ( ) const 

{ 

CMDIFrameWnd: : AssertValid { ) ; 

) 
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void CMainFrame : : Dump (CDump 

{ 

CMDIFrameWnd : :Dump(dc) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame message handlers 

void CMainFrame : :OnUpdateProgressStatus (CCmdUI *pCmdUI) 

{ 

pCmdUI - >Enable ( ) ; 

pCmdUI ->SetText (m_paneString) ; 



/********************************************************************************* 
* 

* Sets the number currently displayed in the frame edit toolbar 
★ 

*********************************************************************** 
void CMainFrame :: ShowFrameNumber { int n) 

I 

CString st; 

if (n>0) st . Format ( "%d" ,n) ; 
else St. Format (" "); 

m_ToolBarMult if rame . Set Insert edControlText ( st ) ; 

/ i^* ************************************************* 

*ifi Exit from application - clean up 

* '"^^ 

ic -ir^ * * ic ************** ie * * * if * ic ********** -k ****** ir * 

B^L CMainFrame :: DestroyWindow { ) 

^'3 // Close main window 

return CMDIFrameWnd: : DestroyWindow ( ) ; 

****************************************************************************** 

*^^ 

Show/hide all toolbars 

JfcrtV;* ************************************************************* 

\Mid CMainFrame : :OnViewToolbar { ) 

m_showToolbars - ! m_showToolbar s ; 

m_ReBar . GetReBarCtrl ( ) .ShowBand(0, m_showToolbar s) ; 

m_ReBar .GetReBarCtrl { ) . ShowBand ( 1 , m_showToolbar s ) ; 

m_ReBar .GetReBarCtrl ( ) .ShowBand (2, m_showToolbar s ) ; 

} 

void CMainFrame :: OnUpdateViewToolbar {CCmdUI * pCmdUI ) 

{ 

pCmdUI - >SetCheck (m_showToolbars) ; 

} 

void CMainFrame :: ShowMult if rameToolbar (bool show) 

{ 

m_ReBar .GetReBarCtrl ( ) . ShowBand ( 1 , show); 

) 

* 

* Process dropdown toolbar buttons 
* 

************************************************************************ 

void CMainFrame : :OnToolbarDropDown(NMTOOLBAR *pnmtb, LRESULT *plr) 

{ 

m_ToolBarBasic . TrackDropDownMenu (pnmtb- >i I tern, this) ; 
m_ToolBarMult if rame . TrackDropDownMenu (pnmtb- >i I tern, this) ; 

} 
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* Drag-and-drop support 
* 

************************************************************************* 
void CMainFrame : :OnDropFiles (HDROP hDropInfo) 

{ 

// Find the number of files 

UINT nFiles = : :DragQueryFile (hDropInfo, {UINT)-1, NULL, 0) ; 

for(UINT iPile=0; iFi le<nFi les ; iFile++) 

{ 

TCHAR szFileName [_MAX_PATH] ; 

: :DragQueryFile (hDropInfo, iFile, szFileName, _MAX_PATH) ; 
theApp . OpenDocument File ( szFileName, true) ; 

} 

: : DragFinish (hDropInfo) ; 

} 

/******************************************************************************** 
* 

* Switch logo animation on the menu bar 
* 

********************************************************************************/ 
void CMainFrame :: EnableLogoAnimat ion (bool enable) 

{ 

if (enable) m_Animate . Open ( IDR_AVI_DCM) ; 
else m_Animate . Stop ( ) ; 

}_ 

/ * ***************************************************************************** 
* 

*Q1 Show dictionary availability on the status bar 

*^r=! 

it^% *****************************************************************************/ 

void CMainFrame :: SetDictionaryStatus (bool enabled) 

int index=m_StatusBar .CommandToIndex(ID_DICTIONARY_STATUS) ; 
CString stat = enabled ? "DICT ENABLED" : "DICT DISABLED" ; 
m StatusBar . SetPaneText ( index , stat) ; 
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z^^^ the DICOMDocument class. 

^/m/////////////////////////////////m/ 



II DICOMDocument . h : interface 
// 

1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 IWI 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 ITTI / 1 



#if ! defined (AFX_DICOMDOCUMENT_H INCLUDED_) 

#def ine AFX_DICOMDOCUMENT_H INCLUDED_ 

^include " DICOMInf o . h" // Added by ClassView 
^include " winmodules . h" // Added by ClassView 
#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

class DICOMDocument : public Array< ImageSeries>//Study 

( 

public : 

static const BYTE FormatDICOMOr iginal ; 

static const BYTE FormatDICOMModif ied ; 

static const BYTE FormatWINDOWSMult imedia; 



void AddDICOMRecords (Array<DICOMRecord> &a) ; 

void DisplayDICOMInf o ( ) ; 

void GetPixelSpacing (double &dx, double &dy) ; 

void SetShowInf o (bool show) ; 

bool GetShowInf o ( ) ; 

bool AddDDOFile (CString filename); 

bool IsEmptyO { return m_DDO . I sEmpty ( ) ; } 

bool SaveDICOM (CString f ilename= " 'M ; 

bool SaveDocument (CString fname, int format); 

bool LoadFile (CString filename); 

^^=^ bool LoadDDO (DICOMDataObject &ddo, bool clone); 

fll int GetNumberOf Images 0 ; 

int GetCurrent Imagelndex ( ) ; 

-J't CString Get Fi lename ( ) { return m_Filename; } 

CString GetMRUAl ias ( ) ; 

Image* Get Image (int n) ; 



.j=| inline ImageSeries* 

2": GetCurrentSeries ( ) 

\M { 

s return &m_ImageSeries ; 

if (GetSize ( ) < = 0) return NULL; // empty 

~ if (m_CurrentSeries< 0) m_Current Ser ies=0 ; 

if (m_CurrentSeries>= ( int ) GetSize { ) ) m_CurrentSer ies=GetUpperBound ( ) 
nj return & (Get (m_Current Series )) ; 

~ DICOMRecord* GetDICOMRecordPtr ( ) ( return &m_FileRecord ; }; 

DICOMDocument 0 ; 
Li virtual -DICOMDocument ( ) ; 



private : 
int 

DICOMRecord 

CString 

PDU_Service 

DICOMDataObject 

DICOMInf o 

ImageSeries 



bool 

}; 

#endif // 



m_Current Series; 
m_FileRecord; 
m_Fi lename ; 
m_PDU; 
m_DDO ; 

m_Inf oDialog ; 
m_ImageSeries ; 

InitializeDocument (DICOMDataObj ect& m_DDO, 
CString& m_Filename) ; 



! defined (AFX DICOMDOCUMENT_H INCLUDED_) 
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srr^^^tion of the DICOMDocument class. 

^tm II II III 1111/ 1 mill nil II III II III 11 II I 



1 1 DICOMDocument . cpp : implen 
// 

/////////////////////////////77//////////////////////////////////77/// 

^include "stdafx.h" 
#finclude " . . //DCM.h" 
^include "DICOMDocument . h" 

^^ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

# define new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 



FormatDICOMOriginal = 0; 
FormatDICOMModif ied = 1; 
FormatWINDOWSMultimedia = 2 ; 
DICOMDocument: : DICOMDocument ( ) : m_Inf oDialog ( & ( theApp . app_RTC) , 

theApp . app_DirectoryTmp) 



const BYTE DICOMDocument 
const BYTE DICOMDocument 
const BYTE DICOMDocument 



i f ( ! theApp . app_RTC . I sEmpty ( ) ) 

{ 

m_PDU.AttachRTC(&( theApp. app_RTC) .FALSE) ; 

) 

r* m_CurrentSeries = -1; 

•3- 

ofiSoMDocument : : -DICOMDocument ( ) 



' "^^ 

Load DICOM Data from 
1. A file 
*i^h 2 . Another DDO 

*r1 

bb^l DICOMDocument :: LoadFile (CString filename) 

i=^, f i lename , TrimRight ( ) ; f i lename . TrimLef t () ; 
i: if (f ilename==" " ) 
U ( 

AfxMessageBox ( "Cannot load: file name is empty", 
MB_0K|MB_IC0NEXCLAMATI0N) ; 

return false; 

} 

// Store filename 
m_Filename=fi lename ; 

// Load DDO, completely, using m_PDU for RTC 
m_DDO . Reset ( ) ; 

if ( !m_DDO.LoadFromFile ( (char*) (LPCSTR) (filename) , false , &m_PDU) ) 
( 

AfxMessageBox( "Cannot read DICOM from f ile\n" +f ilename , MB_OK | MB_ICONEXCLAMATION) 
return false; 

} 

// Initialize data 

if ( ! InitializeDocument (m_DDO, m_Fi lename ) ) return false; 
// OK 

return true; 

} 

bool DICOMDocument :: LoadDDO (DICOMDataObject &ddo, bool clone) 
{ 

VR * vr; 
// Set m_DDO 
m_DDO . Reset ( ) ; 
if (clone) 

{ 
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if { !m_DDO.CloneFrom(^^) ) 

AfxMessageBox( "Cannot load DICOM" , MB_OK | MB_ICONEXCLAMATION) 
return false; 

) 

} 

else 

{ 

while (vr=ddo. Pop ( ) ) m_DDO . Push (vr) ; 

) 

// Set filename 
char f f [65] ; 

m_DDO . SuggestFi leName ( f f , 6 5 ) ; 

m_Filename = theApp . app_DirectoryTmp+" / " +CString ( f f ) ; 
// Classify VRs 

theApp . app_RTC . RunTimeClass (&m_DDO) ; 

// Save m_DDO copy into Tn_Filename for consistency 

if ( !m_DDO. SavelntoFile ( (char*) (LPCSTR) (m_Filename) , true, &m_PDU) ) 
{ 

AfxMessageBox ( "Cannot save DICOM in file \n" +m_Fi lename , 
MB_0K|MB_IC0NEXCLAMATI0N) ; 

return false ; 

) 

// Initialize data 

if ( ! Init ializeDocument (m_DDO, m_Filename) ) return falser- 
return true; 

}p 

/ ^* ******************************************************************** 

Initialize all document data from m_DDO and m_Filename 

hid3l DICOMDocument :: Init ializeDocument (DICOMDataObj ect& m_DDO , 

CString& m_Filename) 

Cm 

II Do we have anything inside the DICOM object ? 
s if (m_DDO. IsEmpty ( ) ) 
{ 

AfxMessageBox ( "Empty or invalid DICOM object", MB_ICONEXCLAMATION | MB_OK) 
return false; 

Hi } 

SJ // Display, parse and hide DICOM Info 

=1 //if ( !m_Inf oDialog . PopInf o (m_DDO , m_Filename) ) return false; 
J: // Set file record 

LJ m_FileRecord. SetRecord (m_DDO, (char*) ( LPCSTR) m_Fi lename ) ; 
// Parse image data into bitmaps 

m_ImageSeries.ReadDO(m_DDO, (char*) ( LPCSTR) m_Filename ) ; 
//Array< ImageSeries> : : Add (m_ImageSeries) ; 

//m_CurrentSeries = Array< ImageSer ies> : : GetUpperBound ( ) ; 
// If no images found, display info dialog 

if (GetNumberOf Images ( ) <1) m_Inf oDialog . DoModeless (m_DDO , m_Fi lename ) ; 
return true; 

} 

* 

* Save DICOM Data into a file 
* 

bool DICOMDocument : :SaveDICOM(CString filename /* ="" */) 
{ 

if ( f ilename = = " " ) f i lename=m_Fi lename ; 
if (f ilename = = " " ) 

AfxMessageBox ( "Empty filename, cannot save" , MB_OK | MB_ICONEXCLAMAT ION) ; 
return false; 



// Save copy DO 

DICOMDataObj ect do_tmp; 

if ( !do_tmp.CloneFrom(£cm_DDO) ) 
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} 



^ AfxMessageBoxC'Canno^^ve DICOM data" , MB_OK | MB_ICONEXCL^^ ION) 
return false; 

} 

if ( 'Get Current Series ( ) - >Wr i teDO (do_tmp) ) 

AfxMessageBox ( "Cannot save image data" , MB_OK | MB_ICONEXCLAMATION) 
return false; 

} 

if ( !do_tmp. SavelntoFile ( (char*) (LPCSTR) (filename) , false) ) 
{ 

AfxMessageBox { "Cannot save DICOM in file \n" +f ilename , 
MB_OK|MB_ICONEXCLAMATION) ; 

return false; 

} 

return true; 



********** ************************************************* ****** 

* 

* Display DICOM Object 
* 

***********************************************************************/ 
void DICOMDocument: : Di splayDICOMInf o ( ) 

{ 

m_Inf oDialog . DoModeless (m_DDO , m_Fi lename) ; 

} 

/?#********************************************************************* 

i§ 

*y1 Navigating in image series 

*?>********************************************************************/ 
Image* DICOMDocument :: Get Image ( int n) 

.J% ImageSeries* pS = GetCurrentSer ies ( ) ; 
if(!pS) return NULL; 
else return pS- >Get Image (n) ; 

ijtt DICOMDocument: : GetNumberOf Images ( ) 

ImageSeries* pS = GetCurrentSer ies {) ; 
nj if ( ! pS) return 0 ; 

Vi else return pS- >GetUpperBound ( ) +1 ; 

hi 

rat DICOMDocument : :GetCurrent Imagelndex ( ) 

ImageSeries* pS = GetCurrentSer ies () ; 
if ( ! pS) return - 1 ; 

else return pS- >GetCurrent Imagelndex () ; 

} 

/*********************************************************************** 
* 

* Save the entire document in specified format 
* 

***********************************************************************/ 
bool DICOMDocument :: SaveDocument (CString fname, int format) 

{ 

bool success=true ; 

CString err("Error saving the document"); 
// Clean proposed file name 
f name . TrimLef t ( ) ; f name . TrimRight ( ) ; 
if ( f name== " " ) 



AfxMessageBox ( "Cannot save: file name is empty". 

MB_OK|MB_ICONEXCLAMATION) ; 

return false; 



// Save in requested format 

if {format==FormatDICOMOriginal) // Save unchanged DICOM 
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DpyFile(m Filename , f name , FALSE) !=0); 



if ( f name ! =m_Filenamei 

{ \ 

bool success= (Cop^i le (m_Filename , f name , FALSE) !=0); 



} 
} 

else if (f ormat==FormatDICOMModif ied) // Save modified DICOM 

{ 

return SaveDICOM ( f name) ; 

} 

else if (f ormat==FormatWINDOWSMultimedia) // Save DICOM as multimedia directory 

( 

// Create new directory 

if ( ! : :CreateAndSetCurrentDirectory ( (char*) (LPCSTR) fname) ) 
{ 

AfxMessageBox ( "Cannot access directory\n" +f name , 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

} 

// Save all bitmaps 

success = GetCurrentSeries ()- >SaveAsImageFiles ( fname) ; 

// Save DICOM demographics 

char inf o [_MAX_PATH] ; 

sprint f (info, "%s\\info.txt", fname) ; 

success = success && m_FileRecord. WritelntoTextFile ( inf o) ; 

// Save sound data 
/* 

if (m_SoundFileName . Get Length ( ) >3 ) 

( 

try 



CFile : :Rename (m_SoundFileName , f name+" \\voice . wav" ) ; 

catch (CFileExcept ion *e) 

'J.} err . Format (" Error saving sound file into %s fname + fname+ " voice . wav" ) 

•J\ AfxMessageBox (err ) ; 

e->Delete ( ) ; 
'^^^ return FALSE; 

} 

\U else 

{ 

piij err=" Invalid format"; success = f alse ; 

CI if ((success) AfxMessageBox (err ,MB_OK|MB_ICONEXCLAMATION) ; 

Beep(500, 100) ; 
return success; 

} 

* 

* Get physical spacing between image pixels 
* 

********************************************************************** 
void DICOMDocument : :GetPixelSpacing (double &dx, double &dy) 

{ 

GetCurrentSeries ( ) - >Get Pixel Spacing (dx, dy) ; 

} 



/ 



Show image info on the images 



void DICOMDocument :: SetShowInfo (bool show) 

( 

GetCurrentSeries ( ) - >Set ShowSeries Imageinf o ( show) ; 

} 

bool DICOMDocument: : Get Showinf o ( ) 

{ 

return GetCurrent Series () - >GetShowSeries Image Inf o ( ) ; 
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****************************** *^^(^ i 



} 

/*************************** ******************************** *ir* ***** 
* 

* Create an alias name for the MRU files list 



***********************************************************************/ 

CString DICOMDocument: : GetMRUAl ias ( ) 

{ 

CString s; 

s. Format ( "%s, %s" , m_FileRecord , GetPat ientName ( ) , m_Fi leRecord . Get Pat ient ID { ) ) 
return s; 

} 

* 

* Include new series files 
* 

***********************************************************************/ 
bool DICOMDocument : :AddDDOFile (CString filename) 

{ 

ImageSeries* pS = GetCurrentSeries ( ) ; 
if(pS) return pS - >AddDDOFi le ( f i lename ) ; 
else return false; 

} 

void DICOMDocument :: AddDICOMRecords (Array<DICOMRecord> &a) 

{ 

if (a . GetSize ( ) < =0) return; 
r=:= ImageSeries* pS = GetCurrentSeries () ; 
Hi if(!pS) 
^ { 

01 LoadFile (a [0] . GetFileName { ) ) ; 

a . RemoveAt ( 0 ) ; 

AddDICOMRecords (a) ; // recursion 
return; 

yi } 

else pS->AddDICOMRecords (a) ; 

= 

Q 

m 
a 

u 
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# if ! defined ( AFX_DICOMINFO_H^^LUDED_) 

#define AFX_D I COM I N FO_H_ I NCL^ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 



#include /resource . h" 
#include <dicom.hpp> 



///////////////////////////////////////////////////////////////////////////// 
// DICOMInfo dialog 

class DICOMInfo : public CDialog, public DICOMView 
{ 

// Construction 
publ ic : 

void SetFilename (CString f ilename) ; 
void DoModeless ( ) ; 

void DoModeless (DICOMObj ect& dob, CString filename); 
void Load(const char* str) ; 
void Load (DICOMObj ect &DO) ; 

bool PopInf o (DICOMObject& dob, CStringfic filename); 
bool LoadFile ( char* filename); 

DICOMInfo (RTC* rtc, CString temp_dir, CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

//{ {AFX_DATA (DICOMInfo) 
fi enum { IDD = IDD_DIALOG_DICOMINFO }; 
^zl II ] }AFX_DATA 



/ jg^Overr ides 

Z\ II ClassWizard generated virtual function overrides 
"J: //( {AFX_VIRTUAL (DICOMInfo) 
protected: 

Jl virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
fi\ f I) }afx_virtual 

1^ Implementation 
f^Qtected : 

// Generated message map functions 
flJ //{ {AFX_MSG (DICOMInfo) 
SJ afx_msg void OnOK(); 
s=^ afx__msg void OnCancelO; 

Si afx_msg void OnDropFiles ( HDROP hDropInfo) ; 
LJ virtual BOOL Onini tDialog ( ) ; 
// } }AFX_MSG 

afx_msg void OnClose ( ) ; 
DECLARE_MESSAGE_MAP ( ) 
private : 

CString m_Filename, m_BackupFile , m_TemporaryDirectory ; 

const CString m_DropFile; 
CListCtrl m_List; 



void SaveToFile ( ) ; 

void Rese tSackup ( ) ; 

bool OpenFromFi le ( ) ; 

}; 

// ( (afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 



#endif // ! def ined { AFX_DICOMINFO_H_INCLUDED_) 
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// dicominf o . cpp : implement^^^n file 
// 

#include "stdafx.h" 
#include "dicominf o . h" 
#include <io.h> 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

ftendif 

///////////////////////////////////////////////////////////////////////////// 
// DICOMInfo dialog 



DICOMInf o: :DICOMInfo{RTC* rtc, CString temp_dir, CWnd* pParent /*=NULL*/) 
: CDialog(DICOMInfo: : IDD, pParent), m_DropFile ( " * " ) 

{ 

// { (AFX_DATA_INIT (DICOMInf o) 
m_Filename = _T ( " " ) ; 
// } }AFX_DATA_INIT 
// Set RTC 

if ( ! rtc->IsEmpty ( ) ) At tachRTC ( r tc ) ; 
// Set temporary directory 
m_TemporaryDirectory= temp_dir ; 
m_TemporaryDirectory . Replace ('/'*' \\ ') ; 
m_TemporaryDirectory . TrimRight ( " \\") ; 
=: // Set backup file name 
m_BackupFi le=: " "; 

'41 

vc^ild DICOMInf o :: DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange ( pDX) ; 
2t //{ (AFX_DATA_MAP (DICOMInfo) 
lU DDX_Control(pDX, IDC_LIST, m_List); 
s DDX_Text (pDX, IDC_FILENAME , m_Filename); 
L.3. / / } }afx_data_map 

ft c 

BEGIN_MESSAGE_MAP (DICOMInf o, CDialog) 
//{ {AFX_MSG_MAP (DICOMInf o) 

on_wm_dropfiles 0 
rj // } }afx_msg_map 
end_message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 

// DICOMInfo message handlers 

* Overriden virtuals from DICOMView 
* 

void DICOMInf o :: Load ( const char *str) 

{ 

int n,m; 

CString cs=CStr ing ( str ) ; 

cs . TrimRight 0 ; cs . Tr imLef t ( ) ; 

if(cs=="") return; 

// Parse VR string 

CString tag; n=cs . Find {"),") ; 

if (n< 0) tag= " " ; 

else { tag=cs . Lef t (n+1 ) ; cs=cs . Mid (n+2 ) ; } 

tag . TrimRight ( ) ; 

CString length; n=cs . Find ( " by tes , " ) ; 
if (n<0) length=" " ; 

else { length=cs . Lef t (n+5 ) ; cs-cs . Mid (n+6 ) ; } 
length. TrimLeft ( ) ; length , TrimRight ( ) ; 
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CString vr; 
n=cs. Find("VR= [") ; 
if(n<0) vr=""; 

else { vr=cs.Mid{n+4 , 2) ; cs=cs . Mid (n+7) ; } 

vr . TrimLef t ( ) ; vr . TrimRight ( ) ; 

CString value, description; 

n = cs.Find("<") ; m=cs.Find(" [ [",max(n,0) ) ; 

if (n<0) value=" " ; 

else 

{ 

if (m>n) 

{ 

value=cs . Mid (n, m-n) ; descr ipt ion=cs . Mid (m+2 ) ; 
descript ion . TrimRight ( " ]"); 

} 

else 

{ 

value=cs . Mid (n) ; descript ion= " " ; 

} 

} 

value . TrimLef t ( ) ; value . TrimRight ( ) ; 

descript ion . TrimLef t ( ) ; description . TrimRight ( ) ; 

UINT nItem=m_List . Insert I tern (m_Li st . GetltemCount ( ) , tag) ; 
m_List , Set I tern (nl tern, 1 , LVIF_TEXT, length, 0,0,0,0) ; 
m_List . Set I tern (nl tern, 2 , LVI F_TEXT , vr , 0,0,0,0); 
f ^ m_List . Set I tern (nl tern, 3 , LVI F_TEXT , value ,0,0,0,0) ; 

m_List . Set Item (nitem, 4 , LVIF_TEXT, description, 0 , 0 , 0 , 0) ; 

vcSOd DICOMInfo: :Load(DICOMObject &D0) 

bool top_level= (m_SequenceLevel = = 0) ; 
if ( top_level) 

■J% GetDlgItem( IDC_EDITNUM) ->SetWindowText ( "No elements found") 

Z\ m_List - DeleteAll Items 0 ; 

-■•^ BeginWaitCursor ( ) ; 

s if (OpenFromFile ( ) ) return; 

DICOMView: : Load (DO) ; 
if { top level ) 

nJ { 

S.J CString num; num. Format (" %d" , m_numElements) ; 

GetDlgItem(IDC_EDITNUM) - >SetWindowText (num) ; 
ZZ for(int i = 0; i< = 4; i + + ) 

ni_L ist.SetCol umn W i d t h ( i , L VS C W_AUTO SIZE) ; 

} 

EndWaitCursor 0 ; 
SaveToFile ( ) ; 

} 

} 

bool DICOMInfo :: LoadFile ( char *filename) 

{ 

BeginWaitCursor ( ) ; 
m_List . DeleteAll I terns ( ) ; 
bool success = true; 

CString f n ( filename) ; f n . TrimRight () ; 

if ( f n==m_Filename && OpenFromFi le ( ) ) success= true ; 

else 9uccess=DIC0MView : : LoadFi le ( f i lename ) ; 

if ( ! success) GetDlgItem(IDC_EDITNUM) - >SetWindowText ( 

"Cannot load this file"); 

SetFilename (f n) ; 
EndWaitCursor ( ) ; 
return success; 

} 

/****************★****************★*****•****************★** 

* Modeless display and distruction 
* 

***************************************************** 



2 



Dicominf o. cpp 



10/27/00 



return; 



void DICOMInf o : :DoModeless ( ) ^ 

{ _ 

if ( this- >GetSaf eHwnd ( ) ) return; 
Create ( IDD_DIALOG_DICOMINFO, NULL) ; 
// Always display on top 

SetWindowPos(&wndTopMost , 0 , 0 , 0 , 0 , SWP_NOS I ZE | SWP_SHOWWINDOW ); 
SetWindowText ( "DICOM Header") ; 
ShowWindow(SW_SHOWNORMAL) ; 

} 

void DICOMInfo: :DoModeless (DICOMObject &dob, CString filename) 

{ 

if ( this- >GetSaf eHwnd 0 ) return; 
DoModeless { ) ; 
SetFilename ( filename) ; 
Load (dob) ; 



void DICOMInfo 



OnOKO { DestroyWindow ( ) 



OnCancelO { DestroyWindow ( ) 
OnCloseO { DestroyWindow ( ) 



} 



} 



Popinf o (DICOMObj ect &dob , CString &filename) 



void DICOMInfo: 
void DICOMInfo: 
bool DICOMInfo: 

( 

DoMode 1 e s s ( dob , til ename ) ; 

bool non_empty = (m_numElements>0) ; 

OnClose ( ) ; 

if ( ! non_empty ) 

AfxMessageBoxC Invalid DICOM format", MB_OK | MB_ICONEXCLAMATION) 

} 

return non_empty; 



* ^^J 

* ~"J Dragging files 

vgfd DICOMInfo: :OnDropFiles (HDROP hDropInfo) 
e // Find the number of files 

r. UINT nFiles = :: DragQueryFi le (hDropInfo , (UINT)-l, NULL, 0); 
" if(nFiles>l) 
U { 

AfxMessageBox ( "Cannot display multiple files." 
"\nSelect one file and try again.", 
MB_OK|MB_ICONEXCLAMATION) ; 
return; 



TCHAR szFileName [256] / 

: : DragQueryFile (hDropInfo , 0 , szFileName , 256 ) ; 
CString temp=m_BackupFile ; m_BackupFi le=m_DropFi le ; 
LoadFile ( szFileName) ; 
m_Back:upFile= temp; 
: : DragFinish (hDropInfo) ; 



★ 

* Set filename 
* 

★*********************************************************/ 
void DICOMInfo :: SetFilename (CString filename) 

{ 

m_Filename=f ilename ; m_Filename . TrimRight ( ) ; 
UpdateData (FALSE) ; 

} 

BOOL DICOMInfo : :OnInitDialog ( ) 
{ 

CDialog: : OnlnitDialog ( ) ; 
// Element list columns 

m_List . InsertColumn(0, "Element Tag", LVCFMT_CENTER , 60 , 0 ) ; 
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m_List . InsertColumnd, "L^Wi" , LVCFMT_CENTER, 80, 0) ; 
m_L ist. Insert Co 1 umn ( 2 , " v!^^LVC FMT_CENTER ,80,0); 
m_List . InsertColumnO, "Value" , LVCFMT_LEFT, 100, 0) ; 
m_List . InsertColumn (4 , "Description" , LVCFMT_LEFT, 80 , 0) ; 
// Element list: Force entire row selection 

m_List.SendMessage( LVM_SETEXTENDEDLISTVIEWSTYLE, 0 , LVS_EX_FULLROWSELECT ) 
return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



★ 

* Persistent Storage 
★ 

void DICOMInf o: :SaveToFile ( ) 

( 

if (m_BackupFile==m_DropFile) return; 

if (Tn_BackupFile = = " " ) // was not initialized 

{ 

char curdir [MAX_PATH+1] ; 

GetCurrentDirectory (MAX_PATH, curdir) ; 

SetCurrentDirectory (m_TemporaryDirectory) ; 

char name_template(13] = "_inf o_XXXXXX" ; 

bool success = (mktemp (name_template) != NULL); 

SetCurrentDirectory (curdir) ; 

if (! success) return; 

m_BackupFile=m_TemporaryDirectory+"\\"+CString (name_template) ; 

n) ~ ~ 

"=11 int i, n; 

-ii CString tag, length, vr, value, description; 
n1 try 

CFile db_f ile (m_BackupFile , CFile : : modeCreate | CFile : rmodeWrite) ; 
'"J CArchive ar(&db_file, CArchive :: store) ; 
•Jj n=m_List . Get ItemCount ( ) ; 

ar<<n; 

2t for{i=0; i<n; i++) 

oj { 

= tag=m_List .GetltemText (i , 0) ; 

i^j, length=m_List .GetltemText (i , 1) ; 

'^l vr=m_List .GetltemText (i, 2) ; 

hi value=m_List .Get ItemText (i , 3) ; 

flj descript ion=m_List .GetltemText ( i , 4 ) ; 

ar<<tag<<length<<vr<<value<< description; 

1 

W ar. Close ( ) ; 

□ ) 

catch (CException* e) 

( 

e->Delete ( ) ; 
ResetBackup ( ) ; 



bool DICOMInf o: :OpenFromFile ( ) 

{ 

if (m_BackupFile==" " || m_BackupFile==m_DropFile) return false; 
int i, n; 
UINT nitem; 

CString tag, length, vr, value, description; 
try 

{ 

CFile db_f ile (m_BackupFile, CFile :: modeRead) ; 
CArchive ar(&db_file, CArchive :: load) ; 
ar>>n; 

m_List . DeleteAllI terns ( ) ; 
for(i=0; i<n; i++) 

{ 

ar >> tag >>length>>vr>>value>> description; 
nItem=m_List . Insert I tem(m_List .GetltemCount ( ) , tag) ; 
m_List . Set I tern (nl tern, 1 , LVIF_TEXT, length, 0 , 0 , 0 , 0) ; 
m_List . Setltem(nltem, 2, LVIF_TEXT, vr, 0, 0, 0, 0) ; 
m List. Setltem(nltem, 3, LVIF_TEXT, value, 0,0, 0,0) ; 
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m_List . Set Item (n^^, 4 , LVIF_TEXT, description, 0 , 0 , 0 , ( 



1^1^, 4 , LVIF_TEXT, description ,0,0,0, 



) 

ar .Close 0 ; 
m_numE lements=n; 

CString num; num. Format (" %d" , m_numE laments) ; 
GetDlgItem(IDC_EDITNUM) - >SetWindowText (num) ; 
for(i=0; i<=4; i++) 

I 

m_List .SetColunmWidth(i,LVSCW_AUTOSIZE) ; 

} 

return true; 

} 

catch(CException* e) 

( 

e->Delete ( ) ; 
ResetBackup ( ) ; 
return false; 



★ 

* Reset the backup file 
* 

**********************★**★************************************/ 
void DICOMInf o : :Re9etBackup 0 



DeleteFile (m_BackupFile) ; 
m_BackupFile=" " ; 



rj 

nJ 
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// Image. h: interface for th^^^age class. 

n / 1 / / 1 1 1 1 1 / 1 1 n 1 1 1 / / / / / 1 1 iim/ / / 1 1 / 1 / 1 / 1 1 1 / / 1 1 11 / / / / / / 1 1 1 / / / / / m 1 1 1 



/^/ 



#if ! defined (AFX_IMAGE_H_INCLUDED_) 
^define AFX_IMAGE_H_INCLUDED_ 

^include "ScreenMap.h" 
^include "Palette. h" 

^include " . , /StdAf x . h" // Added by ClassView 

^define COMPARE_CORRELATION 0 
^define COMPARE_ABSOLUTE 1 

^it _MSC_VER >= 1000 
^pragma once 

#endif // _MSC_VER >= 1000 
class Image : public CObject 

{ 

public : 

bool m_UpdateBitmap; 
bool m_RGB; 
BYTE m_EdgeThreshold; 
static const BYTE 

DisplayNormal , DisplayHidden, DisplaySelected; 
long m_maxPixelValue ; 

Palette* m_pPal; 
ScreenMap m_ScreenMap; 



J] void 
Q1 void 

Is; void 
Ui . 
void 

"'I void 

J] void 

Is void 

void 
MJ void 
a void 
1^2^ void 

void 

nJ void 



inline 

inline 

inline 

bool 

bool 

bool 

bool 

bool 

bool 

bool 

bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 

bool 
bool 
bool 
bool 

bool 
bool 



SetlmageData (DICOMRecord* dr, Point2D* pspace, int* index); 

Set ImageRectZoom (double zoom) ; 

Set ImageRectOff set (double dx, double dy) ; 

SetDisplayStatus (BYTE stat) ; 

LinkToPalette (Palette* pPal) ; 

GetSubimage ( Image* sub, const int xleft, const int ytop) ; 

Palette_to_Pixels ( ) ; 

ResetPixels (bool current_to_saf e) ; 

SetBrightness (int b) ; 

TR_Flip (bool horizontal) ; 

SetShowImageInf o (bool show) { m_ShowImageInf o = show; 

GetStat istics ( long &avg, long &sigma2, long &count , 

int xO, int xl, int yO, int yl) ; 
GetStat istics ( long &avg, long &sigma2, long &count) 



GetStatistics (avg, sigma2, count, 0, m_Width, 0, m_Height) ; 



void SetPixel (unsigned int x, unsigned int y, long p) ; 
void SetPixelFromLum (unsigned int x, unsigned int y, long p) ; 
void SetPixel (unsigned long n, long p) ; 
ContainsScreenPoint (CPointfit p) ; 

GetShowImageInf o ( ) ( return m_ShowImageInfo; ); 

CloneFrom( Image* img) ; 
WriteToFile (CString fname) ; 

SetPalette ( long* color_map, long color_map_si2e , bool show_progress=true) 
SetPalette ( int px, int py, int pxmax, int pymax) ; 
Createlmage ( int xwidth, int xheight, 

int bytes_per_pixel , Palette* pPal=NULL) ; 
TR_SetUnif ormLuminance (CRect r, bool show_progress=true) ; 
TR_SetUnif ormLuminance (bool show_progress=true) ; 
TR_PixelNeighboorhood (char mask_type, bool show_progress) ; 
TR_PixelExp( ) ; 
TR_PixelLog ( ) ; 

TR_GammaCorrect ion (double gamma) ; 

TR_HistStretch (BYTE percent, bool show_progress=true) ; 
TR_HistStretch ( int amin,int amax,int bmin,int bmax, 

bool show_progress=true) ; 
TR_HistEqualize (bool show_progress=true) ; 
TR_Negate() ; 
TR_Rotate (int degrees); 

DisplayDIB (CDC *pDC, CRect crectScreenArea , CRect erect ImageArea , 

CPoint pScroll=CPoint (0, 0) , bool optimize=true) ; 
DisplayDIB (CDC *pDC, CPoint pScroll) ; 
DisplayDIB (CDC *pDC) ; 
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BYTE* 

inline 

int 

inline 

inline 

inline 

inline 

long 

inline 

inline 

inline 

inline 

double 

inline 

CPoint 
Image ( 
-Image 



COMRec- 



GetPixelByte, 
BYTE GetDisplaySt' 

CompareToDICOl 
int GetHeightO 
int GetWidthO 
int GetBytesPerPixel ( ) 
int GetBytesInRaw( ) 



T32& data_si2e) ; 
) { return m_DisplayStatus; 
cord(DICOMRecord & dr, BYTE lev), 
return m_Height; }; 
return m_Width; ) ; 

return m_Bytes_per_Pixel ; } 
return m_Height *m_Bytes_per_Pixel ; } 



TR_Fractal (const int x, const int y) ; 
long GetPixel (unsigned int x, unsigned int y) ; 
long GetPixel (unsigned long n) ; 
long GetLuminance (int x, int y) ; 
long GetSmoothedLuminance (int x, int y) 
Compare (int comp_type, CPoint topleft, 
int pat_w, int pat_h, long pat 

double 

GetZoomO { return m_ScreenMap.GetZoom( ) ; 
TR_FindSimilarRegion (const CRect rO) ; 
bool undo=true) ; 
0 ; 



long **pattern, 
avr) ; 



); 



private : 






bool 




m_ReleasePalette ; 


bool 




m_DisplayFailed; 


bool 




m_ShowImageInf o; 


BYTE 




m_DisplayStatus ; 


BYTE* 




m_Pixels; 


unsigned 


int 


m_numColors ; 


int 




m_Index; 


— int 




m Height, m_Width; 


q int 




m_Bytes_per_Pixel ; 


^ij long 




m_numPixelBytes; 


fyi unsigned 


long 


m_numPixels ; 



~-J Point 2D 
;jl est ring 

HBITMAP 

CStatusBar* 



m_UndoFileCount ; 

m_PixelSpacing; 

m_UndoFile ; 

m_Bitmap; 

m MainStatusBar ; 



ly BITMAPFILEHEADER m_bmpFHeader ; 
^ LPBITMAPINFO m_bmpInfo; 

DICOMRecord m DICOMRecord; 



void Di3playImageInfo(CDC* pDC) ; 

void Formatlmageinf o (CStringSt info) ; 

void Get_Pixel_minmax ( long&pmin, long& pmax) ; 

void DeletelmageData ( ) ; 

bool Serializelmage (FILE* fp, bool is_loading) ; 

inline unsigned long 

MapPixel (unsigned int x, unsigned int y) ; 
long TR_DeNoise (const int x, const int y) ; 

long TR_Sharp (const int x, const int y) ; 

long TR_Smooth (const int x, const int y) ; 

long TR_Sobel (const int x, const int y) ; 

HBITMAP DIB_to_DDB(CDC *pDC) ; 



/**********************************************************************************^ 

* Get pixel functions 
* 

************************************************************************* 
inline long Image : :GetPixel (unsigned int x, unsigned int y) 

{ 

return GetPixel (MapPixel (x,y) ) ; 
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inline long Image :: Get Pixel {^^Pgned long n) 



if (n>=m_numPixels) n=m_numPixels- 1 ; 
n *= m_Bytes_per_Pixel ; // array index 
// Color ? 

if(m_RGB) return RGB (m_Pixels [n+2] , m_Pixels [n+1] , m_Pixels [n] ) ; 
// Grayscale 

switch (m_Bytes_per_Pixel) 

( 

case 1: return m_Pixels [n] ; 

case 2: return ( (UINT16 * ) m_Pixels) [n] ; 

case 3: return (m_Pixels [n+1] + ( ( ( long) m_Pixels [n+1] ) <<8 ) 

+ ( ( (long) m_Pixels [n+2] ) <<16) ); 
case 4: return ( (UINT32* ) m_Pixels) [n] ; 

} 

return m Pixels [n] ; 



* Set pixel functions 
* 

****************************************************************** 
inline void Image :: SetPixel (unsigned int x, unsigned int y, long p) 

{ 

m_Upda t eB i t map= t rue ; 
SetPixel (MapPixel (x, y) , p) ; 

irMline void Image :: SetPixelFromLum (unsigned int x, unsigned int y, long p) 

{ oi 

,n m_UpdateBitmap=true; 
r"\ long n=MapPixel (x,y) ; 
~"Jif(m_RGB) // color image 

^ m_Pixels[n] = (BYTE)p 
m_Pixels [n+1] = (BYTE) p 
iU m_Pixels [n+2] = (BYTE) p 
s return; 

) 

L.. else SetPixel (n, p) ; 

ililine void Image :: SetPixel (unsigned long n, long p) 

m_UpdateBitmap=true ; 
if (n>=m_numPixels) n=m_numPixels-l ; 
d // Color ? 
if(m_RGB) 
{ 

m_Pixels [n] =GetBValue (p) ; 
m_Pixels [n+1] =GetGValue (p) ; 
m_Pixels [n+2] =GetRValue (p) ; 
return; 

} 

// Grayscale 

if (p>m_maxPixelValue) p=m_maxPixelValue; 
else if(p<0) p=0; 
switch (m_Bytes_per_Pixel ) 

{ 

case 1: m_Pixels [n] = (BYTE) p; 
break; 

case 2: ( (UINT16*) m_Pixels) [n] = (UINT16)p; 
break; 

case 3 : 

m_Pixels [n+2] = (BYTE) (p>>16) ; 
m_Pixels [n+1] = (BYTE) ( (p>>8) &255) ; 
m_Pixels [n] = (BYTE) (p£c255) ; 
break; 

case 4: ( (UINT32* ) m_Pixels) [n] = (UINT32)p; 
break; 



} 



return; 
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* Returns luminance (brightness) of pixel (x,y) 
* 

******************************************************************************* 
inline long Image : :GetLuminance ( int x, int y) 

{ 

if(x<=0) x=0; if(y<0) y=0; 

if (m_RGB) 

{ 

long i=MapPixel (x,y) ; 

return (long) ( (m_Pixels [i] +m_Pixels [i+1] +m_Pixels [i+2] ) /3) ; 

) 

else return GetPixel (x,y) ; 

) 

inline long Image : :GetSmoothedLuminance ( int x, int y) 

( 

if(x<0) X=0; 

if(y<0) y=0; 

long p=TR_Smooth(x,y) ; 

if (m_RGB) 

{ 

return (long) ( (GetRValue (p) +GetGValue (p) +GetBValue (p) ) /3) ; 

} 

else return p; 



#e|Kaif // ! defined (AFX_IMAGE_H_INCLUDED_) 



Q 
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i^^kthe Image class. 

'miiiiiiiiiiiinmmiiininiiiiimii 



II Image, cpp: implementation^ 
// 

IIIIIIIIIIIIIIIIIIIIIIIII/I/ITTI/I/I/III/I/IIII/III/I/I///I////I/ITIII 

^include "stdafx.h" 
include " . .\DCM.h" 
# include " Image. h" 
^^include " . . \FindRegion.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE [ ) =_FILE_; 

#define new DEBUG_NEW 

ttendif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 

const BYTE Image :: DisplayNormal = 0; 

const BYTE Image :: DisplayHidden = 1; 

const BYTE Image :: DisplaySelected = 2; 

unsigned long Image : :m_UndoFileCount=0 ; 

Image :: Image (bool undo /*=true*/) 

{ 

m_Pixels=NULL; 
m_bmp I n f o = NULL ; 
m_Bitmap=NULL; 
m_pPal=NULL; 

m_ReleasePalette = true; 
□ if (undo) m_UndoFile ^ " + "; 
ifieise m_UndoFile = 

^» m_ShowImageInf o = false; 
^; m_DisplayStatus = DisplayNormal; 
UJ m lndex=0 ; 



Irt^e : : - Image ( ) 

{ ^ 

f=j DeletelmageData ( ) ; 

''^ if ( (m_UndoFile != " ) && (m_UndoFile != " + ")) DeleteFile (m_UndoFile) ; 
v(g.'d Image : :DeleteImageData { ) 

{Si 

if (m_Pixels) ( delete [] m_Pixels; m_Pixels=NULL; ) 

if {m_bmplnf o) ( delete [] m_bmpInfo; m_bmplnf o=NULL; ) 
p if(m_Bitmap) DeleteObj ect (m_Bitmap) ; 
if (m_ReleasePalette) 

{ 

if(m_pPal) delete m_pPal; 
m_pPal=0 ; 



void Image :: SetlmageData (DICOMRecord *dr, Point2D *pspace, int *index) 
{ 

if(dr) m_DICOMRecord = (*dr); 

if(pspace) m_PixelSpacing = (*pspace); 
if (index) m_Index = (*index); 

) 

* 

* Initialize image pixel arrays. Always call after image construction 
* 

bool Image : :CreateImage (int xwidth, int xheight, int bytes_per_pixel , 

Palette* pPal /*=NULL*/) 

{ 

II Clear if anything existed 
DeletelmageData ( ) ; 

// Find number of bytes per pixel with the current display 
if (bytes_per_pixel>=l && bytes_per_pixel<=3 ) 
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b]^^_per_pixel; 



m_Bytes_per_Pixel= 

) _ 

else return false; // out of memory 
int device_bpp = (theApp.app_Metheus ? 2 : 1);// bytes per pixel availabl 
if {device_bpp<m_Bytes_per_Pixel) m_Bytes_per_Pixel=device_bpp; 
m_RGB=f alse ; // no color images so far 

// Set image parameters 

if(xwidth>8) m_Width=8* (xwidth/8) ; else m_Width=8; 

if (xheight>8) m_Height =8* (xheight/8 ) ; else m_Height=8; 

if (m_Bytes_per_Pixel==l) m_numColors=256 ; 
else m_numColors=0 ; 

m_numPixels= ( (long)m_Width) *m_Height ; // total number of pixels 
m_numP ixe IBy t e s=m_numP ixe 1 s *m_By t e s_per_Pixe 1 ; 

if ( !m_RGB) m_maxPixelValue= min(4095, (1<< (8*m_Bytes_per_Pixel) ) -1) ; 

else m_maxPixelValue=255 ; 

m_EdgeThreshold=max ( 1 ,m_maxPixelValue/20) ; // 5% of the total scale 



// Set bitmap infoheader 

m_bmplnf o= (LPBITMAPINFO) new BYTE [sizeof (BITMAPINFOHEADER) 
+m_numColors*si2eof (RGBQUAD) 1 ; 

if ( !m_bmpInfo) return false; // out of memory for bitmapinfo 

m_bmpInfo->bmiHeader .biSize=si2eof (BITMAPINFOHEADER) ; //fixed 

m_bmplnf o- >bmiHeader . biWidth=m__Width; 

m_bmplnf o- >bmiHeader . biHeight =m_Height ; 
, m_bmplnf o->bmiHeader . biPlanes=l ; //fixed 
1 m_bmplnf o->bmiHeader . biBitCount=8*m_Bytes_per_Pixel ; 
] m_bmplnf o->bmiHeader .biCompression-BI_RGB; //fixed 
\ m_bmplnf o->bmiHeader . bisizelmage=:0 ; //fixed 
I m_bmplnf o->bmiHeader .biXPelsPerMeter=0 ; //fixed 
J m_bmpInfo->bmiHeader .biYPelsPerMeter=0; //fixed 
J m_bmplnf o->bmiHeader . biClrUsed=0 ; 

i m_bmpInfo->bmiHeader .bicirlmportant=0; //fixed, normally 0 
I f I Set bitmap palette 

J for (unsigned int j=0; j <m_numColors ; j++) 

J { 

m_bmplnf o->bmiColors [ j ] . rgbRed^j ; 
m_bmplnf o->bmiColors [ j ] . rgbGreen=j ; 
m_bmplnf o->bmiColors [ j ] . rgbBlue= j ; 
m_bmpInfo->bmiColors [ j ] . rgbReserved=0 ; 

j ) 

^ // Set default screen map 

] m_ScreenMap. Initialize (CRect ( 0 , 0 , m_Width, m_Height ) ) ; 

= m_ScreenMap. crScreen.Of f setRect (50 , 0) ; 

// Set default bitmap fileheader (used only for file I/O) 
m_bmpFHeader.bfType= ( 'M'<<8) | 'B' ; //fixed 

m_bmpFHeader .bfSize=sizeof (BITMAPFILEHEADER) +sizeof (BITMAPINFO) 

+m_Width*m_Height*m_numColors; 
m_bmpFHeader . bf Reservedl=0 ; //fixed 
m_bmpFHeader .bfReserved2=0 ; //fixed 

m_bmpFHeader.bfOf fBits=sizeof (BITMAPINFOHEADER) +sizeof (BITMAPFILEHEADER) 
+m_numColors* sizeof (RGBQUAD) ; 

// Allocate pixel array, set display pixels to 0 
try 

m_Pixels=new BYTE [m_numPixelBytes] ; 
catch( . . , ) 

AfxMessageBoxC Image error: out of memory", MB_0K|MB_IC0NEXCLAMATI0N) 
return false; 

if ( !m_Pixels) 

AfxMessageBoxC Image error: out of memory", MB__OK | MB_ICONEXCLAMATION) 
return false; 

else memset {m_Pixels, 0,m_numPixelBytes) ; 
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e=rrMDIFrameWnd*) AfxGetMainWndO ; 



// Grab main window stat^ 
CMDIFrameWnd* main_frame= 
m_MainStatusBar= (CStatusBar*) {main_f rame->GetMessageBar ( ) ) ; 

// Set logical palette 

if{!pPal) // create independent palette 

{ 

m_pPal=new Palette (theApp. app_Metheus,m_maxPixelValue,m_RGB) , 
m_ReleasePalette=true; 

> 

else // link to existing palette 

{ 

m_pPal=pPal ; 
m_ReleasePalette= false ; 

) 

m_DisplayFailed=f alse ; m_UpdateBitmap=true; m_Bitmap=NULL; 
return true; 



* Set image palette (will be set on devices supporting palettes) 

* Must be called for 8-bit bitmaps 

it -rjiieicit* ********************** it ific**it it** **ieitic*ieie** itieit it* 

/^f"Set palette to specified color map array 

b§5l Image :: SetPalette ( long* color_map, long color_map_size , bool show_progress ) 
long i, r, g, b, p; 

if (m_pPal->p_active) // if using logical palettes 

~'- return m_pPal->SetPalette (color_map, color_map_size) ; 

Hi } 

s else // directly reset pixel values 

// Display progress control in the main frame status bar 

if (show_progress) theApp . ShowProgress ( 1 , "Modifying pixel values ..."); 

nj // Backup old pixel values 

Si ResetPixels { true) ; 

// Remap pixel values 

;f if(m_RGB) 

for(i=0; i< (long) m_numPixels; i++) 

{ 

if {show_progress && i%100==0) theApp . ShowProgress (( 99*i ) /m_numPixels) ; 
p=GetPixel (i) ; 

r=GetRValue (p) ; if (r>=color_map_size) r=color_map_size- 1 ; 
g=GetGValue (p) ; if (g>=color_map_size) g=color_map_size- 1 ; 
b=GetBValue (p) ; if (b>=color_map_size) b=color_map_size- 1 ; 
SetPixel ( i , RGB (color_map [r] , color_map [g] , color_map [b] ) ) ; 

) 

I 

else // greyscale 

{ 

for(i=0; i< ( long) m_numPixels ; i++) 

( 

if ( show_progress && i%100==0) theApp . ShowProgress ({ 99*i ) /m_numPixels) ; 
p=GetPixel ( i) ; if (p>=color_map_size) p=color_map_size-l ; 
SetPixel ( i , color_map [p] ) ; 

) 

) 

return true,- 

) 

} 

bool Image :: SetPalette (int px, int py, int pxmax, int pymax) // set palette with respect to the 
mouse position 
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int of f 9et= ( ( (long)in_max 
double x= (2 . 0*py) /pymax; 
x=l+2*(x-l)*(x-l)*(x-l) ; 
return m_pPal->Set Palette (of f set ,x) 



l^^l Value/3) * (2*px-pxmax) ) /pxmax; 



★ 

* Plot DIB pixels 
* 

bool Image : :DisplayDIB (CDC *pDC, CRect crectScreenArea , CRect erect ImageArea , 

CPoint pScroll, bool optimize) 

if (m_DisplayStatus == DisplayHidden) return true; // no display for hidden 
UINT palUsage; 

if (m_DisplayFailed) return false; 

if (m_pPal->p_active m_pPal - >LoadPalette (pDC, m_RGB) ) 
{ 

palUsage=DIB_PAL_COLORS; 

1 

else palUsage=DIB_RGB_COLORS; 

// Printing ? 

if (pDC->IsPrinting 0 ) 

Ql optimize=f alse; 

'f^ int list^width = pDC- >GetDeviceCaps (HORZRES) ; 

int list_height = pDC- >GetDeviceCaps (VERTRES) ; 
~H double mag = 0.9*min( (double) ( list_width/GetWidth ()) , 

Jj (double) (list_height/GetHeight 0 ) ) ; 

.jl int print_width = ( int ) (mag*GetWidth ( ) ) ; 

int print_height= (int) (mag*GetHeight 0 ) ; 
i^:? crectScreenArea=CRect ( 

s CPoint ( (list_width-print_width) /2, ( list_height-print_height ) /2) , 

L,i, CSize (print_width, print_height ) ) ; 

%l crectlmageArea =CRect (CPoint (0, 0) , CSize (GetWidthO ,GetHeight () ) ) ; 

pScroll = CPoint (0,0); 

mJ ) 

~ /* Optimize drawing regions */ 

CRect rcClip, rcDraw; 
□ pDC->GetClipBox (rcClip) ; 

rcClip.NormalizeRect ( ) ; 

if (optimize) 

{ 

CRect rcDIB; 



if (rcClip. IsRectEmpty ( ) ) return true; 
rcClip. Inf lateRect (4,4) ; 

rcDraw. IntersectRect (rcClip, crectScreenArea) ; 
rcDraw. Normal izeRect ( ) ; 

if (rcDraw. IsRectEmpty 0 ) return true; 

rcDIB=m_ScreenMap. Screen_to_Image (rcDraw) ; 
if (rcDIB. IsRectEmpty 0 ) return true; 



crectScreenArea . CopyRect ( rcDraw) ; 

if (theApp.app_Metheus) crectScreenArea. Of fsetRect ( -pScroll) ; 
erect ImageArea . CopyRect ( rcDIB ) ; 

1 

/* Correct image area */ 

if (crectlmageArea. lef t<0) crectlmageArea .Of fsetRect (-crectlmageArea. left, 0) ; 
else if (erect ImageArea . right >m_Width) 

crectlmageArea .Of fsetRect (m_Width-crect ImageArea . right , 0) ; 
if (crectlmageArea. top <0) crectlmageArea .Of fsetRect (0 , -erect ImageArea . top) ; 
else if (crectlmageArea .bottom>m_Height) 

crectlmageArea. Of fsetRect (0,m_Height -erect ImageArea .bottom) ; 
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i^^Band bitmap (source) areas */ 
rea.TopLef t 0 -x; long yDest=crectScreenAre 



ill 



/* Set screen (destinati| 

long xDest = crectScreenAreTTT:opLef t ( ) -x; long yDest = crectScreen5rrea . TopLef t ( ) . y ; 
long wDest = crectScreenArea .Width 0 ; long hDest = crectScreenArea. Height () ; 

long xBmp=crectImageArea. TopLef t ( ) .x; 
long yBmp; 

if ( theApp. app_Metheus) yBmp=crect ImageArea . TopLef t ( ) .y; 
else 

{ 

yBmp=m_Height -erect ImageArea. TopLef t ( ) .y-crectlmageArea . Height ( ) ; 

) 

long wBmp=crect ImageArea. Width 0 ; long hBmp=crect ImageArea . Height () ; 

/* Display as DIB */ 

if(wDest==0 II hDest==0 || wBmp ==0 jj hBmp==0) return true; 
if ( ! theApp. app_Metheus) 

{ 

m_DisplayFailed= ( StretchDIBi ts ( pDC- >GetSaf eHdc ( ) , 

xDest, yOest, wDest, hDest, xBmp, yBmp, wBmp, hBmp, 
m_Pixels, m_bmpInfo, palUsage, SRCCOPY) <=:0) ; 

) 

else // Metheus 

{ 

m_Di3playFailed=true ; 
if (m_UpdateBitmap) 

{ 

if (m_Bitmap) 

MetheusDeleteCompatibleBitmap (pDC->GetSaf eHdc ( ) ,m_Bitmap) ; 
m_Bitmap = MetheusCreateCompatibleBitmap (pDC- >GetSaf eHdc ( ) , GetWidth ( ) , GetHeightO) 
if (MetheusLoadlmageFromData (pDC->GetSafeHdc ( ) , m_Bitmap, 

theApp. app_DynamicPaletteStart,m_Pixels, GetWidthO , GetHeightO , 
01 GetWidth ( } *m_Bytes_per_Pixel , 8*m_Bytes_per_Pixel , 

0, 0, GetWidthO, GetHeightO, 0,0)= = FALSE) 

AfxMessageBox( "Cannot create image bitmap", MB_OK j MB_ICONEXCLAMATION) ; 
return false; 

Si } 

m_DisplayFailed= 
= (MetheusStretchBlt Image {pDC->GetSaf eHdc 0 , NULL, 

~i xDest, yDest, wDest, hDest, 

=^ m_Bitmap, 

xBmp, yBmp, wBmp, hBmp, SRCCOPY) == FALSE ) ; 

H ) 

f=^ /* Display selection frame */ 

"z: if (m_DisplayStatus == DisplaySelected) 

Q { 

CRect r2 = m_ScreenMap. crScreen; 
pDC->DrawEdge (r2,EDGE_BUMP, BF_RECT) ; 

) 

/* Display image info, if needed */ 

if (m_ShowImageInf o) Displaylmageinf o (pDC) ; 

/* Any display errors ?? */ 
if (m_DisplayFailed) 

{ 

DWORD ecode=GetLastError ( ) ; 
CString estr; 

estr . Format ( " GDI error code: %ld\n Please reload the image", ecode) ; 
AfxMessageBox(estr, MB_OK | MB_ICONEXCLAMATION) ; 

} 

m_UpdateBitmap=f alse ; 
return ( ! m_DisplayFailed) ; 

) 

bool Image: iDisplayDIB (CDC *pDC) 
{ 

return DisplayDIB {pDC,m_ScreenMap. crScreen, m_ScreenMap. crimage, CPoint(0,0), true); 

) 

bool Image : :DisplayDIB (CDC *pDC, CPoint pScroll) 

{ 

return DisplayDIB (pDC,m_ScreenMap. crScreen, m_ScreenMap.crImage, pScroll, true); 



Mi 
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/ 



*************************** ^^^* ****************************** *^^^* ********* 



* Display image caption over the image 
* 

******************************************************************************/ 
void Image : :DisplayImageInfo (CDC *pDC) 

{ 

CString info; 
Formatlmagelnfoi info) ; 
if (pDC->IsPrinting ( ) ) 
{ 

pDC->SetMapMode (MM_LOENGLISH) ; 

CFont *oldcf = pDC->SelectObject (&theApp.app_MediumFont) ; 
pDC->SetTextColor (RGB (0,0,0) ) ; 
pDC->TextOut (0,0, info) ; 
pDC->SelectObject (oldcf ) ; 
pDC->SetMapMode(MM_TEXT) ; 



else 



pDC->SetMapMode(MM_TEXT) ; 

CFont *oldcf = pDC->SelectObject (SctheApp.app_SmallFont) ; 
// Find caption rectangle sizes 
CRect r^CRect (0, 0, 10, 10) ; 

r .Of f setRect (m_ScreenMap . crScreen . TopLef t ( ) +CSi2e (5,5)) ; 

pDC->DrawText ( inf o, r , DT_CALCRECT) / 

r &= m_ScreenMap . crScreen; 

// Find out the best caption color 

COLORREF cl = pDC->GetPixel (r.TopLef t 0 ) ; 

COLORREF c2 = pDC- >Get Pixel ( r . BottomRight ()) ; 

COLORREF c3 = pDC- >Ge tPixel ( r , CenterPoint ( ) ) ; 

COLORREF c = RGB ( 

(GetRValue (cl) +GetRValue (c2) +GetRValue ( c3 ) ) /3 , 
(GetGValue (cl) +GetGValue (c2) +GetGValue ( c3 ) ) /3 , 
(GetBValue (cl) +GetBValue (c2) +GetBValue ( c3 ) ) /3) ; 

BYTE g = (GetRValue (c)+GetGValue(c)+GetBValue{c))/3; 

if (g<100) g =255; else g = 0; 

pDC->SetTextColor (RGB(0,g,0) ) ; 

pDC->SetBkMode (TRANSPARENT) ; 

// Display the caption 

pDC->DrawText (info,r,DT_LEFT | DT_END_ELLIPSIS) ; 
pDC->SelectObject (oldcf) ; 



^QT* *************************************************************************** 

* Map pixel coordinates from 2D to linear array of pixel bytes 
* 

******************************************************************************/ 
inline unsigned long Image : :MapPixel (unsigned int x, unsigned int y) 

( 

/* Safe pixel mapping - important ! */ 

if(x >= (unsigned int)m_Width) x=m_Width-l; 

if(y >= (unsigned int ) m_Height ) y=m_Height-l ; 

/* Metheus vertical flip */ 

if ( theApp . app_Metheus) y=m_Height- 1 -y ; 

return m_Bytes_per_Pixel* (m_Width* (long) {m_Height-y-l) +x) ; 



/************************************************************************************* 
* 

* Converts DIB to DDB 
* 

**************************************************************************************/ 

HBITMAP Image: :DIB_to_DDB (CDC *pDC) 

{ 

return CreateDIBitmap (pDC- >GetSaf eHdc ( ) , & (m_bmplnf o- >bmiHeader ) , 

CBM_ INIT,m_Pixels, m_bmp I n f o , D I B_RGB_COLORS ) ; 

) 
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* Returns subimage of the current image 

******************* ********************** ******* 

void Image : :GetSubimage ( Image* sub, const int xleft, const int ytop) 

{ 

if(!sub) return; 
// Backup pixel values 
sub->ResetPixels ( true) ; 

int x,y; 

for(x=xleft; x<xlef t+ {sub->GetWidth ( ) ) ; x++) 
{ 

for{y=ytop; y<ytop+ ( sub->GetHeight ( ) ) ; y++) 

( 

if(x<0 II x>=this->GetWidth() || y<0 || y>=this->GetHeight ( ) ) 
I 

sub->SetPixel (x-xlef t , y-ytop, 0) ; //black background color 

} 

else 

I 

9ub->SetPixel (x-xlef t , y-ytop, this->GetPixel (x,y) ) ; 



/ii 



*********************************************************************************** 



* Set image flip parameter 

ie)£% ***********************************************************************************/ 

v=9id Image :: TR_Flip (bool horizontal) 

r 

~ int X, y, w=GetWidth( ) , h=GetHeight ( ) ; 

long p; 
r'j if (horizontal ) // horizontal flip 

;■=; ResetPixels { true) ; // backup 

*"l for(x = 0; X<w/2; x + + ) 

Zl :: ShowProgress ( (200*x) /w, "Flipping horizonatlly .."); 

'^^ for(y=0; y<h; y++) 

I 

p = GetPixel (x,y) ; 

Set Pixel {x,y, GetPixel (w-x,y) ) ; 

SetPixel {w-x, y , p) ; 

1 

) 

} 

else 

{ 

ResetPixels ( true) ; // backup 
for(y=0; y<h/2; y++) 

{ 

: :ShowProgress ( (200*y) /h, "Flipping vertically .."); 
for(x=0; X<W; X++) 

I 

p = GetPixel (x,y) ; 

SetPixel (x,y, GetPixel (x, h-y) ) ; 

SetPixel (x, h-y,p) ; 

1 

) 

) 

: : ShowProgre s s ( 0 , "Ready " ) ; 
Beep(500, 100) ; 
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/********************★****** ^^V^ ****************************** *^^^-k ***************** 
* 

* Increase image brightness by b percent 

* (decreases brightness for negative b) 

****** ********************* ******************************************* ********* 
void Image :: SetBrightness ( int b) 

I 

long amin, amax, bmin, bmax; 
/* Validation */ 

if(b<-99) b=-99; else if(b>99) b=99; 
if(b==0) return; // nothing to do; 

/* Find current max and min */ 

if (m_pPal->p_active) m_pPal->Get_Pal_minmax (amin, amax) ; 
else Get_Pixel_minmax (amin, amax) ; 

/* Set new min and max */ 

bmin= ( int) (amin+ ( ( ( long) b) * (amax-amin) ) /lOO) ; 
bmax=bmin+ (amax-amin) ; 
if(bmin<0) bmin=0; 

if (bmax>m_maxPixelValue) bmax=m_maxPixelValue ; 

/* Remap the pixels */ 

TR_Hist Stretch (amin, amax, bmin, bmax) ; 

return; 



*********************************************************************************** 
* 2 Apply 3x3 Smooth mask: 
*Jj 1 2 1 

*f=': 2 4 2 
^ 2 1 

*= 

4*i* ***********************************************************************************/ 

l^emg Image : :TR_Smooth (const int x, const int y) 

fit 

i^J long aOO=GetPixel (x-l,y-l) ; long alO=GetPixel (x , y-1 ) ; long a20=GetPixel(x+l , y-1 ) 

'"^J long a01=GetPixel (x-l,y) ; long all=GetPixel (x,y) ; long a21=GetPixel (x+1 , y) ; 

long a02=GetPixel (x-l,y+l) ; long al2=GetPixel (x,y+l) ; long a22=GetPixel (x+1 , y+1 ) 

if(!m_RGB) 

long t= {all<<2) + ( (a01+al2+a21+al0) << 1) +a02+a22+a00+a20 ; 
return ( t >>4 ) ; 

} 

else 

{ ■ 

long tb,tg,tr; 

tb=(GetBValue(all)<<2) 

+( (GetBValue (aOl ) +GetBValue (al2) +GetBValue (a21) +GetBValue (alO) ) <<1) 
+GetBValue (a02 ) +GetBValue {a22 ) +GetBValue (aOO) +GetBValue (a20 ) ; 

tg=(GetGValue(all)<<2) 

+ ( (GetGValue (aOl ) +GetGValue (al2) +GetGValue (a21) +GetGValue (alO) ) <<1) 
+GetGValue (a02) +GetGValue (a22) +GetGValue (aOO) +GetGValue (a20) ; 

tr= (GetRValue (all) <<2) 

+ ( (GetRValue (aOl) +GetRValue (al2) +GetRValue (a21) +GetRValue (alO) ) <<1) 
+GetRValue (a02) +GetRValue (a22) +GetRValue (aOO) +GetRValue (a20) ; 

return RGB (min ( tr>>4 , 255 ) , min ( tg>>4 , 255 ) , min ( tb>>4 , 255 ) ) ; 



/************************************************************************************* 
* 

* Apply SUSAN-like or 3x3 Gaussian mask to denoise: 
* 

* 1 4 1 

* 4 12 4 
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k ^^H^ir ****************************** 



★ *************************** ilnr* ******************************** * iRr* ★*****************/ 
long Image : :TR_DeNoise (const int x, const int y) 

( 

static const int rad=2; 
static const int rad2=rad*2+l ; 

static bool ini t_state=f alse ; 

static int thresh=rad; 

static long bp [50] ; 

static long dpt [rad2] [rad2] ; 

static double thresh2=l . 0/ ( thresh*thresh) ; 

long sigma=50, brightness, Itmp, area, total; 

// Calculate exponent and distance look-up tables 

if ( ! init_state) 

{ 

for (int k=0;k<50;k+ + ) bp[kl^(long) { 100. 0*exp ( -0 . l*k) ) ; 
for(int i=-rad; i<=rad; i++) 

( 

for(int j=-rad; j<=rad; 

{ 

dpt [i+rad] [j+rad] = (long) (100.0 * exp( (-i*i-j*j) *thresh2) ) ; 

1 

t 

ini t_state= true ; 

n ) 

^4J // Calculate image squared variance "sigma" 
01 if((x=^rad) && (y==rad) ) 

GetStatist ics (area , sigma, Itmp) ; 
if(sigma<l) sigma=l; 

// Get central pixel 
^^=' long all=GetPixel (x, y) ; 

Ll //Do denoising 

L:- if(!m_RGB) // Process grayscale image 

rU area = 0; 

total = 0; 

for (int k=:0; k<rad2; k++) 

if ( 

l-i for(int 1 = 0/ l<rad2; 1 + + ) 

( 

brightness=GetPixel (x+k-rad, y+1 -rad) ; 

ltmp=brightness-all ; 

ltmp= (10*ltmp*ltmp) /sigma; 

if (ltmp>=50) continue; 

ltmp=bp [Itmp] ; 

Itmp *= dpt [kj [1] ; 

area Itmp; 

total += Itmp * brightness; 

} 

) 

Itmp = area- 10000; 

if (ltmp==0) 
i 

return { (all<<2) +Get Pixel (x-l,y) +Get Pixel (x+l,y) + 

Get Pixel (x,y-l) +Get Pixel (x,y+l) ) >>3 ; 

) 

else return (total- (all*10000) ) /Itmp; 

} 

else// Process color image 

{ 

long resultr, resultg, resultb,brl; 

long arear, areag, areab; 

long totalr, totalg, totalb; 
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arear = 
totalr 



areag = area 
= totalg = to 



0; 



for{int k=0; k<rad2; k++) 

{ 

for(int 1=0; l<rad2; 1++) 

{ 

brightness=GetPixel (x+k-rad,y+l-rad) 

// -red 

brl=GetRValue (brightness) ; 
ltmp=brl-GetRValue(all) ; 
ltmp= ( 10*ltmp*ltmp) /sigma; 
if (ltmp<50) 
{ 

ltmp=bp [Itmp] ; 
Itmp dpt [k] [1] ; 
arear += Itmp; 
totalr Itmp * brl; 



// green 

brl=GetGValue (brightness) ; 
ltmp=brl-GetGValue(all) ; 
ltmp= (10* Itmp* Itmp) /sigma; 
if (ltmp<50) 
{ 

ltmp=bp [Itmp] ; 
Itmp *= dpt [k] [1] ; 
areag += Itmp; 
totalg += Itmp * brl; 



// blue 

brl=GetBValue (brightness) ; 
ltmp=brl-GetBValue (all) ; 
ltmp= (10* Itmp* Itmp) /sigma; 
if (ltmp<50) 
( 

ltmp=bp [Itmp] ; 
Itmp *= dpt [k] [1] ; 
areab += Itmp; 
totalb += Itmp * brl; 



) 

// red- 

Itmp = arear-10000; 
if (ltmp==0) 



long a00=GetPixel (x-l,y-l) , 
long a20=GetPixel (x+1 ,y-l) , 



long alO=GetPixel (x,y-l) , 
long a01=GetPixel (x-1 ,y) , 



long a02=GetPixel (x-1 ,y+l) ; 
long a22=GetPixel (x+1 ,y+l) ; 



long a21=GetPixel (x+1 ,y) ; 
long al2=GetPixel (x,y+l) ; 
resultr= (GetRValue (all) <<3) 

+ ( (GetRValue (all ) +GetRValue (aOl) +GetRValue (al2) +GetRValue (a21) 

GetRValue (alO) ) <<2) 

+GetRValue (a02) +GetRValue (a22) +GetRValue (aOO) +GetRValue (a20) ; 
if (resultr<0) resultr=0; 
else resultr >>= 5; 

} 

else resultr = { totalr- (GetRValue (all ) *10000) ) /Itmp ; 

// green 

Itmp = areag -10000; 
if (ltmp==0) 



long aOO=GetPixel (x-1 ,y-l) ; 
long a20=GetPixel (x+l ,y-l) ; 



long alO=GetPixel (x,y-l) , 
long a01=GetPixel (x-l,y) , 



long a02=GetPixel (x-1 ,y+l) , 
long a22=GetPixel (x+1 ,y+l) 



long a21=GetPixel (x+1 ,y) ; 
long al2=GetPixel (x,y+l) ; 
resultg= (GetGValue (all ) <<3 ) 

+ ( (GetGValue (all) +GetGValue (aOl) +GetGValue (al2) +GetGValue (a21 ) 

GetGValue (alO) ) <<2) 

+GetGValue (a02) +GetGValue (a22) +GetGValue (aOO) +GetGValue (a20 ) ; 
if (resultg<0) resultg=0; 
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else resultg >> 



else resultg = (totalg- (GetGValue (all) *10000) ) /Itmp; 

// blue 

Itmp = areab-10000; 
if (ltmp==0) 



long aOO=GetPixel (x-1 ,y-l) ; 
long a20=GetPixel {x+1 ,y-l) ; 



long alO=GetPixel (x,y-l) , 
long a01=GetPixel (x-1 ,y) , 



long a02=GetPixel (x-1 ,y+l) ; 
long a22=GetPixel (x+1 ,y+l) ; 



long a21=GetPixel (x+1 ,y) ; 
long al2=GetPixel {x,y+l) ; 
resultb= (GetBValue (all) <<3) 

+ ( (GetBValue (all) +GetBValue (aOl) +GetBValue (al2) +GetBValue (a21) + 

GetBValue (alO) ) <<2) 

+GetBValue (a02) +GetBValue (a22) +GetBValue (aOO) +GetBValue (a20) ; 
if (resultb<0) resultb=0; 
else resultb >>= 5; 



else resultb = (totalb- (GetBValue (all) *10000) ) /Itmp; 

// total color 

//return RGB (min (resultr , 255) , min (resultg, 255) , min (resultb, 255) ) ; 
return resultr; 



/A* *************************************************************** 

*^4J Apply 3x3 sharpening mask: 
*f1l 

-1 -1 -1 

*C'\ -1 10 -1 

-1 -1 -1 / 2 

icM ****** it* ************ if *iricicicicic*****ic*ir it* ********** 

2Sng Image : :TR_Sharp (const int x, const int y) 
I- 

= long a00=GetPixel (x-l,y-l) ; long alO=GetPixel (x,y-l) ; long a20=GetPixel (x+1 , y- 1 ) ; 

Ll long a01=GetPixel(x-l,y) ; long all=GetPixel (x , y) ; long a21=GetPixel (x+1 , y ) ; 

%l long a02=GetPixel (x-l,y+l) ; long al2:=GetPixel (x,y+l) ; long a22=GetPixel (x+1 ,y+l) ; 
if(!m_RGB) 

nj { 

X\ long t=((all<<l)+(all<<3)- (a01+al2+a21+al0+a02+a22+a00+a20) ) >>1 ; 

~ if(t<0) t=0; 

else if ( t>m_maxPixelValue) t=m_maxPixelValue ; 
Ej return t; 

} 

else 

{ 

long tr,tg,tb; 

tr= { (GetRValue (all) <<1) + (GetRValue (all) <<3) 

- (GetRValue (aOl) +GetRValue (al2) +GetRValue (a21) +GetRValue (alO) 

+GetRValue (a02) +GetRValue (a22) +GetRValue (aOO) +GetRValue (a20) ) ) >>1; 
if(tr<0) tr=0; 

tg= ( (GetGValue (all) <<1) + (GetGValue (all) <<3) 

- (GetGValue (aOl) +GetGValue (al2 ) +GetGValue (a21) +GetGValue (alO ) 

+GetGValue (a02) +GetGValue (a22) +GetGValue (aOO) +GetGValue (a20 ) ) ) >>1 ; 
if(tg<0) tg=0; 

tb= ( (GetBValue (all) <<1) + (GetBValue (all ) <<3 ) 

- (GetBValue (aOl) +GetBValue {al2) +GetBValue (a21) +GetBValue (alO) 

+GetBValue (a02) +GetBValue (a22) +GetBValue (aOO) +GetBValue (a20 ) ) ) >>1; 
if(tb<0) tb=0; 

return RGB (min ( tr, 255) ,min(tg,255) ,min(tb,255) ) ; 



^************************************************************************************* 
* 

* Apply 3x3 edge detector 
* 
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// DCM.h 
II 



main header file 



he DCM application 



^it ! defined (AFX_DCM_H__INCLUDED_) 
itdefine AFX_DCM_H_INCLUDED_ 



#if _MSC_VER >= 1000 

^pragma once 

^Jendif // MSC_VER > = 



1000 



Sifndef _AFXWIN_H_ 

^^error include 'stdafx.h' before including this file for PCH 
#endif 

// ^include <afxdao.h> 

^include "resource. h" // main symbols 

ttinclude " FileBrowser . h" // Added by ClassView 
ftinclude "QUERY\QueryRetrieve . h" // Added by ClassView 
^include "QUERY\ODBC . h" // Added by ClassView 
//^include "LogFile.h" // Added by ClassView 

1 1 1 II I User messages 

^define WM_USER_DISPLAY_MOST_RECENT WM_USER+31 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIU 

II CDCMApp: 

// See DCM.cpp for the implementation of this class 
// 



cFCss CDCMApp : public CWinApp 



pOjlic : 

bool 

UINT 
"^f int 
JJ ULONG 
J\ CString 

CSize 
= CPen 
Ll, CFont 

'zi RTC 

nJ LogFile 

Vj //DICOMDatabase 

ODBCDatabase 
'zt FileBrowser 

QueryRetrieve 



app_Metheus/ 

app_ResolutionScaleFactor; 

app_SupportedPaletteSize ; 

app_DynamicPaletteStart ; 

app_DirectoryRoot , app_DirectoryTmp, 

app_DirectoryData; 

app_ScreenResolution; 

app_Pen; 

app_SmallFont , app_MediumFont , 
app_LargeFont ; 
app_RTC ; 

app_ClientLog, app_ServerLog; 
app_DataBase ; 
app_DataBase ; 
app_FileBrowser ; 
app_QueryRetrieve ; 



static void 
void 
void 
BOOL 

virtual CDocument* 
virtual CDocument* 



DisplayRecords ( Array<DICOMRecord> &a, bool from_local); 
ShowProgress ( int percent, char* inf o=NULL) ; 
MoveWindowToCorner {CWnd* wnd, CSize of f set=CSize {0, 0) ) ; 
TestFunction {) ; 

OpenDocumentFile (LPCTSTR IpszFileName) 

{ return this- >OpenDocumentFile ( IpszFileName , true); } 
OpenDocumentFile (LPCTSTR IpszFileName, bool AddToDatabase) 



CDCMApp ( ) ; 
-CDCMApp 0 ; 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ ( AFX_V I RTUAL (CDCMApp) 
public : 

virtual BOOL Init Instance {) ; 

//}}AFX_VIRTUAL 

// Implementation 

//{ {AFX_MSG( CDCMApp) 
afx_msg void OnAppAbout () ; 
afx_msg void OnFileBrowse ( ) ; 
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l(^H:yRetrieve(CCmdUI* pCmdUI) ; 



afx_msg void OnFileQueryB 
afx_msg void OnUpdateFili 
afx_msg void OnDataBaselm^ 
afx_msg void OnDataBaseAttachFiles { ) ; 
afx_msg void OnDataBaseRemoveFilesImported ( ) ; 
afx_msg void OnDataBaseAddRecords ( ) ; 
afx_msg void OnDataBaseRemoveRecords () ; 
afx_msg void OnDataBaseRemoveFilesAttached ( } ; 
afx_msg void OnDataBaseRemoveALLRecords ( ) ; 
//) )AFX_MSG 

afx_msg LRESULT OnDisplayMostRecent (WPARAM wParam, LPARAM iParam) ; 

DECLARE_MESSAGE_|V1AP ( ) 
private : 

void SerializeApp (bool is_loading) ; 
OProgress app_Progress ; 

void LoadStdProf ileSettings(UINT nMaxMRU = _AFX_MRU_COUNT) 

bool TimeBomb ( ) ; 

bool SetDirectories ( ) ; 

1; 

extern CDCMApp theApp; 

extern void ShowProgress { int percent, char* info) ; 
extern CString Trim(char* 3) / 



///////////////////////////////////////////////////////////////////////////// 
// MemoryLeakTest 

// Simple Class to test for memory leaks 

c^ss MemoryLeakTest 

01 #ifdef _DEBUG 

pjjivate : 

r"', CMemoryState m_oldMemState , m_newMemState , m_dif f MemState ; 

nendit 

jslblic : 

inline void Start () 

21 ( 

#ifdef _DEBUG 
3 m_oldMemState . Checkpoint () ; 

U #endif 

return; 

nj inline void End {int code=0) 

p^" #ifdef _DEBUG 

m_newMemState . Checkpoint ( } ; 
p if( m_dif f MemState . Difference ( m_oldMemState , m_newMemState ) ) 

( 

TRACE( "Memory leaked!\n" ); 
m_dif fMemState .DumpStatistics ( ) ; 
CString messages- 
message . Format (" \nLocat ion Code = %d", code) ; 
if (code) AfxMessageBox ( " Memory leaked !" +message ); 
Beep (900, 200) ; Beep ( 100 , 200) ; 

1 

else 

{ 

CString message; 

message . Format (" \nLocat ion Code = %d" , code); 

if (code) AfxMessageBox ( "No memory leaks " +message ) ; 

Beep (100, 100) ; Beep (100, 100) ; 

) 

ttendif 
return; 

1; 

}; 



lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
II ORecentFileList document 

class ORecentFileList : public CRecentFileList 
{ 
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C^IW fname, CStrinq mname) ; 



public : 

void CleanMenuAliasesI 

void AddMenuAlias(LPcllW[ fname, CString mname) 
void SerializeORFList (FILE* fp, bool is_loading) ; 

ORecentFileList (UINT nStart , LPCTSTR IpszSection, LPCTSTR IpszEntryFormat , 
int nSize, int nMaxDispLen = AFX_ABBREV_FILENAME_LEN ) : 

CRecentFileList (nStart , IpszSection, IpszEntryFormat, nSize, nMaxDispLen) 



protected: 

void UpdateMenu(CCmdUI* pCmdUI) ; 
private : 

CMapStringToString m_menuNames; 

}; 

//{ {afx_insert_location) } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line . 

itendif // ! defined (AFX_DCM_H INCLUDED_) 




il 
I 



I 
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// DCM.cpp : Defines the cla 
// 

^include "stdafx.h" 
# include "DCM.h" 
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^^^^haviors for the application. 



^include "MainFrm.h" 
^include "ChildFrm.h" 
^^ include "DCMDoc.h" 
**include "DCMView.h" 
^^include <direct.h> 
^^include "CustomFileDialog . h" 



^^ifdef _DEBUG 

# define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

void ShowProgress ( int percent, char* info) 

{ 

theApp. ShowProgress (percent , info) ; 

1; 

CString Trim(char* s) 

in 

CString str { s) ; 
41 str.TrimLef t 0 ; str . TrimRight () ; 

01 return str; 

% 

/>i////////////////////////////////////////////////////////////////////////// 

M} CDCMApp 

dfclN_MESSAGE_MAP(CDCMApp, CWinApp) 
/ / ( ( AFX_MSG_MAP { CDCMApp ) 

2 ON_COMMAND(ID_APP_ABOUT, OnAppAbout) 

Ll 0N_C0MMAND ( ID_FILE_BROWSE, OnFileBrowse ) 

Ll ON_COMMAND ( I D_F I LE_QUER YRETR I EVE , On F i 1 eQuery Re t r i e ve ) 

ON_UPDATE_COMMAND_UI ( ID_FILE_QUERYRETRIEVE , OnUpdateFi leQueryRetrieve ) 
HJ ON_COMMAND(ID_DATABASE_ADDFILES_IMPORT, OnDataBase Import Fi les ) 
Si ON_COMMAND(ID_DATABASE_ADDFILES_ATTACH, OnDataBaseAt tachFiles ) 
^! ON_COMMAND ( I D_DATABASE_REMOVEF I LES , OnDa t aBa seRemove F i le s Import ed ) 
y ON_COMMAND ( ID_DATABASE_ADDRECORDS, OnDataBaseAddRecords) 
□ ON_COMMAND ( ID_DATABASE_REMOVERECORDS , OnDataBaseRemoveRecords ) 

ON_COMMAND ( ID_DATABASE_REMOVEFILES_ATTACHED , OnDataBaseRemoveFi lesAt tached) 

ON_COMMAND(ID_FILE_OPEN, OnFileOpen) 

ON_COMMAND ( ID_DATABASE_REMOVEALLRECORDS , OnDataBaseRemoveALLRecords) 
//}}AFX_MSG_MAP 

// Standard file based document commands 

///no new files/// ON_COMMAND ( ID_FILE_NEW, CWinApp : :OnFileNew) 
0N_C0MMAND(ID_FILE_0PEN, CWinApp: :OnFileOpen) 
// Standard print setup command 

0N_C0MMAND{ ID_FILE_PRINT_SETUP, CWinApp: : OnFilePrint Setup) 
0N_THREAD_MESSAGE(WM_USER_DISPLAY_M0ST_RECENT, OnDisplayMostRecent) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CDCMApp construction 



CDCMApp : : CDCMApp ( ) 
( 

// TODO: add construction code here 

// Place all significant initialization in Initlnstance 
app_DirectoryTmp='* " ; 

1 

CDCMApp : : -CDCMApp ( ) 
{ 

// Delete graphical objects 
app_Pen.DeleteObject 0 ; 
app_SmallFont . DeleteObject ( ) ; 
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app_MediumFont . DeleteObj 
app_LargeFont .DeleteObje 

// Clean tmp directory 
if( app_DirectoryTmp! =" " ) // Tmp directory exists 
{ 

WIN32_FIND_DATA wf ; 

est ring nf =app_DirectoryTmp+"\\*" ; 

HANDLE hf=FindFirstFile(nf ,&wf) ; 

do 

( 

CString tf =CString (wf . cFileName) ; 

if (tf ! = "." && tf != .") 

( 

DeleteFile (app_DirectoryTmp+"/ " +tf ) ; 



while (FindNextFile (hf , &wf ) ) ; 
FindClose (hf ) ; 

) 

// Serialize application data 
SerializeApp ( false) ; 

) 

* 

* Serialize application data 
★ 

★ *.* ************************************************************************* 
vs^fd CDCMApp :: SerializeApp (bool is loading) 

01 // Open data file 

JI-s, CString fname = "\\app.dat"; 

CString f = app_DirectoryData+f name ; 
H FILE* fp; 

J] fp = fopen( (char*) (LPCSTR)f , is_loading ? "rb" : "wb"); 
if(!fp) return; 

ly // Serialize 

= ( (ORecentFileList*) m_pRecentFileList ) -> Serial izeORFList (fp, is_loading) ; 

1,* // Close data file 
U f close ( f p) ; 

hj 

^/// ////////////////////////////////////////////////////////////// ////////// 

jQ The one and only CDCMApp object 
CDCMApp theApp; 

///////////////////////////////////////////////////////////////////////////// 
// CDCMApp initialization 
BOOL CDCMApp :: Initlnstance ( ) 

{ 

// Ensure that only one DCM copy is running 

HANDLE hMutex = CreateMutex ( NULL, FALSE, "DCM_UNIQUE_MUTEX" ) ; 
if ( NULL != hMutex && ERROR_ALREADY_EXISTS == GetLastError ( ) ) 
( 

CWnd * hWnd = CWnd : : FindWindow ( NULL, "DCM_UNIQUE_MUTEX" ) ; 

if ( hWnd != NULL ) 

{ 

// if found make it the current window 
hWnd->SetForegroundWindow( ) ; 

1 

Af xMessageBox ( "DCM is already running !"); 
return FALSE; 




// Check the time bomb 

if ( !TimeBomb 0 ) return FALSE; 

// Socket support 

if ( lAfxSocketlnit 0 ) 
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AfxMessageBox( "Windo^^bckets failed") ; 
return FALSE; 

} 

Af xEnableControlContainer ( ) ; 

// Standard initialization 
l^ifdef _AFXDLL 

Enable3dControls ( ) ; // Call this when using MFC in a shared DLL 

ielse 

EnableSdControlsStaticO ; // Call this when linking to MFC statically 
#endif 

// Change the registry key under which our settings are stored. 
// You should modify this string to be something appropriate 
// such as the name of your company or organization. 
SetRegistryKey (_T ( "DCM Workstation")) ; 

LoadStdProf ileSettings ( ) ; // Load standard INI file options (including MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views. 



CMultiDocTemplate* pDocTemplate ; 
pDocTemplate = new CMult iDocTemplate ( 

IDR_DCMTYPE, 

RUNTIME_CLASS(CDCMDoc) , 

RUNTIME_CLASS (CChildFrame) , //custom MDI child frame 
f=^ RUNTIME_CLASS (CDCMView) ) ; 

AddDocTemplate (pDocTemplate) ; 

01 // create main MDI Frame window 

CMainFrame* pMainFrame = new CMainFrame; // does not need any "delete" later 
J^! if ( ! (pMainFrame->LoadFrame (IDR_MAINFRAME) ) ) return FALSE; 

m_pMainWnd = pMainFrame; 

if 1 

If Set application graphics parameters 
2t HDC scrHdc=GetDC{NULL) ; // grab screen DC GetDC 

app_Metheus = ( I sMetheusDevice { scrHdc ) ==TRUE) ; 
- app_ScreenResolution. cx= : : GetDeviceCaps ( scrHdc , HORZRES) ; 
l== app_ScreenRe3olution. cy= : :GetDeviceCaps ( scrHdc , VERTRES) ; 

app_ResolutionScaleFactor= min (app_ScreenResolution. cx/800 , 

app_ScreenResolution. cx/600) ; 
fy if (app_ResolutionScaleFactor<l) app_Resolut ionScaleFactor=l ; 
^^J app_Pen. CreatePen(PS_SOLID, 2*theApp. app_ResolutionScaleFactor , 
J, RGB (250, 250, 250) ) ; 

int fac= min { 2 , theApp. app_ResolutionScaleFactor) ; 

□ int pix20mm = (25*app_ScreenResolution. cy) /: :GetDeviceCaps (scrHdc ,VERTSIZE) ; 

app_SmallFont . CreatePointFont (pix20mm, "Arial", NULL); 

app_MediumFont .CreatePointFont ( (3*pix20mm) /2, "Swiss" , NULL) ; 

app_LargeFont . CreatePointFont (2*pix20mm, "Swiss", NULL); 

if (app_Metheus) 

( 

app_SupportedPaletteSize=4096 ; 
MetheusEscDEVINFO mdinf; 
MetheusGetDEVINFO ( scrHdc , &mdinf ) ; 

app_DynamicPaletteStart=mdinf . StartExtraPal+app_SupportedPaletteSize ; 

1 

else 

{ 

app_DynamicPaletteStart=0 ; 

if (GetDeviceCaps ( scrHdc , RASTERCAPS) £cRC_PALETTE) 
{ 

app_SupportedPaletteSize=GetDeviceCaps (scrHdc, SIZEPALETTE) ; 
if (app_SupportedPaletteSize<255) app_SupportedPaletteSize=0 ; 

) 

else app_SupportedPaletteSize=0; 

1 

ReleaseDC (NULL, scrHdc) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLineInf o cmdinfo; 
ParseCommandLine (cmdinf o) ; 
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// Dispatch commands spe 
if ( ! ProcessShellCommand 
return FALSE; 
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•d on the command line 
nfo)) 



// The main window has been initialized, so show and update it. 
pMainFrame->ShowWindow{m_nCmdShow) ; 
pMainFrame->UpdateWindow( ) ; 
II Do not initialize an empty document 
//pMainFrame->MDIGetActive ( ) ->MDIDestroy ( ) ; 

pMainFrame->MDIGetActive ( ) ->GetActiveDocument ( ) - >OnCloseDocument ( ) ; 



// Set working directories 

if ( ISetDirectoriesO ) return FALSE; 

// Test some code 

if ( !TestFunction{) ) return FALSE; 



// Initialize File Browser 

if ( !app_FileBrowser. Initialize (app_DirectoryTmp) ) return FALSE; 

// Initialize progress control 

if ( !app_Progress. Initialize 0 ) return FALSE; 

// Load RTC 

CString path=app_DirectoryRoot ; 

path=app_DirectoryRoot .Lef t (app_DirectoryRoot .GetLengthO -6) ; // remove "/Applic" 
path+=CString ( "dcmdict . txt " ) ; 

bool dictEnabled = (app_RTC. AttachRTC ( (char*) (LPCSTR) path, : : ShowProgress) ==TRUE) ; 
f% ( (CMainFrame*)m_pMainWnd) - >SetDictionaryStatus (dictEnabled) ; 

5^ // Initialize log files (must go after RTC and directory initialization 
01 if { !app_ClientLog.CreateDVL( 

(char*) (LPCSTR) ( theApp . app_DirectoryData+" \\ClientLog . txt " ) , &app_RTC) ) 

""e' AfxMessageBox ( "Cannot initialize client log"); 

-ij return FALSE; 

) 

Z'l if ( ! app_ServerLog . CreateDVL ( 

(char*) (LPCSTR) ( theApp . app_DirectoryData+ " \\ServerLog . txt " ) , &app_RTC) ) 

= ( 

Li AfxMessageBox ( "Cannot initialize server log"); 

^5. return FALSE; 

) 

jy if ( !app_QueryRetrieve . Init ializeQueryRetrieve ( &app_ClientLog , 
&app_ServerLog, &app_DataBase) ) 

return FALSE; 

^ ) 

// Load serialized data 
SerializeApp ( true) ; 



return TRUE; 

1 

★ 

* Set directory structure 
* 

***************************************************************** 
bool CDCMApp : : SetDirectories 0 

{ 

bool newdir=f alse ; 
app_DirectoryTmp=" " ; 
// Get root directory 

app_DirectoryRoot=GetProf ileString ( "Directories" , "Root" , " " ) ; 

if (app_DirectoryRoot . Find( "Prof ile" ) >0) app_DirectoryRoot=" " ; // avoid desktop 
if (app_DirectoryRoot==" " ) // reset 

( 

newdir=true; 

app_Direc toryRoot=CSt ring (this ->m_pszHelpFilePath) ; 

app_DirectoryRoot . TrimRight ( ) ; 

app_DirectoryRoot . Replace ("/"," \\ ") ; 

int n=app_DirectoryRoot . ReverseFind ( ' \\ ' ) ; 

if (n>0) app_DirectoryRoot=app_DirectoryRoot . Left (n) ; 
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app_DirectoryRoot += ^^ring ( "\\Applxc" ) ; 
WriteProf ileString ( "D^Bttories" , "Root" , app_DirectoryRoo 

} 

// Can we access root directory ? 

//if (SetCurrentDirectory (app_DirectoryRoot) ==FALSE) 
if ( ! : :CreateAndSetCurrentDirectory ( 

(char*) (LPCSTR) app_DirectoryRoot ) ) 

{ 

WriteProf ileString { "Directories" , "Root" , " " ) ; 
AfxMessageBox ( "Failed to setup the application directory"); 
return false; 

} 

// Create subdirectories 
app_DirectoryRoot .Replace {"/" , "W") ; 
app_DirectoryTmp =app_DirectoryRoot+"\\temp" ; 
app_DirectoryData=app_DirectoryRoot+"\\data" ; 
CreateDirectory (app_DirectoryTmp, NULL) ; 
CreateDirectory (app_DirectoryData, NULL) ; 
CString dbdir=app_DirectoryRoot+" \\DataBase" ; 

if ( !app_DataBase. Initial i2eDataBase( (char*) (LPCSTR) dbdir, ^DisplayRecords) ) 
{ 

WriteProf ileString ( "Directories" , "Root" , " " ) ; 
return false; 

} 

if (newdir) 

{ 

CString info; 

AfxFormatStringl (inf o, IDS_DIRECTORY_SETUP, app_DirectoryRoot ) ; 

r"^ AfxMessageBox (info, MB ICONINFORMATION I MB OK); 

%) 

=f return true; 

* Open (create) a new document 

******************************* ************* *********** 
c3fccument* CDCMApp : :OpenDocumentFile (LPCTSTR IpszFileName , bool AddToDatabase) 

jy 

s Beep(700,200) ; 

Li if (! IpszFileName || lpszFileName== " " ) return NULL; 
ShowProgress ( 5 , " Parcing image file..."); 

CDCMDoc* pDoc = (CDCMDoc*) (CWinApp : :OpenDocumentFile ( IpszFileName) ) ; 
nj if(!pDoc) return NULL; 

\\ if (pDoc->IsEmpty { ) ) 

pDoc->OnCloseDocument ( ) ; // kill empty or invalid documents 
U ShowProgress (0, "Ready") ; 

return NULL; 

1 

else // Looks like a nice DICOM document 

( 

( (ORecentFileList*) m__pRecentFileList) - >AddMenuAlias ( IpszFileName , 

pDoc->GetMRUAlias() ) ; 

if (AddToDatabase) 

( 

app_DataBase .DBAdd ( * (pDoc- >GetDICOMRecordPtr ( ) ) ); 

} 

ShowProgress (0, "Ready") ; 
return pDoc; 



LRESULT CDCMApp: lOnDisplayMostRecent (WPARAM wParam, LPARAM iParam) 
( 

if(!wParam) return OL; 

Array<DICOMRecord>* a = (Array<DICOMRecord>* ) wParam; 

if ( !a) return OL; 

if (a->GetSize ( ) < = 0) return OL; 

CDCMDoc* pDoc = NULL; 

// Any documents open ? 

POSITION pos = theApp.GetFirstDocTemplatePositionO ; 
CMultiDocTemplate* pDocTemplate = NULL; 
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if (pos) 

{ _ 

pDocTemplate = (CMultiuocTemplate*) 
(theApp.GetNextDocTemplate (pos) ) ; 



^^^Template*) 



//Go through all existing documents 
if (pDocTemplate) 

{ 

POSITION posDoc = pDocTemplate->GetFirstDocPosition( ) ; 
while (posDoc && a->GetSi2e ( ) >0) 

{ 

pDoc = (CDCMDoc*) (pDocTemplate->GetNextDoc (posDoc) ) ; 
if ( !pDoc) break; 
pDoc->AddDICOMRecords (*a) ; 
pDoc- >OnViewRef resh ( ) ; 

} 

} 

// Open new documents, if needed 

while (a->GetSi2e () >0) 

{ 

pDoc = (CDCMDoc*) ( 

theApp.OpenDocumentFile (a->Get (0) .GetFileName { ) , false) ) ; 
a->RemoveAt (0) ; 
if(!pDoc) continue; 
pDoc->AddDICOMRecords (*a) ; 
pDoc- >OnViewRef resh ( ) ; 

Zl return OL; 

vS^Ld CDCMApp : :DisplayRecords (Array<DICOMRecord> &a, bool from_local) 

4} theApp.PostThreadMessage(WM_USER_DISPLAY_MOST_RECENT, (WPARAM) &a, 
iij (LPARAM) f rom_local) ; 

= while(a.GetSize() >0) Sleep(lOO) ; 
f 

icicir ** it ******* ic* ******** it icicicieir***** ********** 

"^J Launch DICOM browser 

^> *★★★***★**★**★*★★**★**★***********★*★★*★****★*★★**★*******★******★************/ 

^id CDCMApp : :OnFileBrowse ( ) 

{ 

if (app_FileBrowser .DoModal ( ) ==IDOK) 
{ 

this->OpenDocumentFile ( app__FileBrowser . m_RequestedFile , true) ; 

} 

1 

^**************************************************************************** 
* 

* Start or Terminate Query/Retrieve session 
* 

****************************************************************************/ 
void CDCMApp: :OnFileQueryRetrieve { ) 

I 

app_QueryRetrieve . SwitchAppearance { ) ; 

} 

void CDCMApp: :OnUpdateFileQueryRetrieve (CCmdUI* pCmdUI) 
( 

Static bool state=false; 

bool check = (app_QueryRetrieve . GetSaf eHwnd () ! = NULL && 

app_QueryRetrieve . Islconic 0 == FALSE); 
pCmdUI->SetCheck (check) ; 
if (check != state) 

{ 

state=check; 

CMainFrame* mf = (CMainFrame*) Af xGetMainWnd ( ) ; 
if (mf ) mf ->EnableLogoAnimation ( ! check) ; 
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) 

) 

y**************************** *Tr* ******************************** * *9nr5- * ********* 
* 

* DataBase menu handlers 



*****•****★***********★*********★********************************************/ 
void CDCMApp : : OnDataBase Import Fi les () 

{ 

// Display modal FileOpen dialog 
CCustomFileDialog fd; 

fd. SetTitle ( "Select Files/Directories to Import into the Database"); 

if (f d.DoModal ( ) != IDOK ) return; 

int count = f d . GetSelectedCount ( ) ; 

if (count<=:0 ) return; 

// Process selected strings 

bool subdir = ( f d . m_SelectSubdirector ies == TRUE); 

for(UINT ind=0; ind < (UINT) count; ind ++) 

{ 

ShowProgress ( 90* ( ind+1) /count , "Importing ... "); 

app_DataBase. ImportDirectory { (char*) (LPCSTR) ( f d . Get SelectedAt ( ind) ) , 

subdir) ; 

} 

ShowProgress ( 0 ) ; 
return ; 

} 

void CDCMApp: :OnDataBaseAttachFiles ( ) 

( 

CJ // Display modal FileOpen dialog 

CCustomFileDialog fd; 
2f fd . SetTitle ( "Select Files/Directories to Attach to the Database"); 

if (fd.DoModal 0 != IDOK ) return; 
Ji int count = fd . GetSelectedCount () ; 

if{count< = 0) return; 
.1 If Process selected strings 

-JJ bool subdir = ( f d . m_SelectSubdirectories === TRUE); 
for (UINT ind=0; ind < (UINT) count; ind ++) 

''''^ ShowProgress ( 90* ( ind+1 ) /count , "Attaching ... "); 

- app_DataBase. AttachDirectory ( (char*) (LPCSTR) ( f d . GetSelectedAt ( ind) ) , 

La subdir) ; 

ShowProgress ( 0 ) ; 
return; 

>J 

TOid CDCMApp: :OnDataBaseRemoveFilesImported ( ) 

^•^ // Display modal FileOpen dialog 
CCustomFileDialog fd; 

fd . SetTitle { "Select Imported Files/Directories to Remove from the Database") 

if (fd.DoModal 0 != IDOK ) return; 

int count = fd . GetSelectedCount () ; 

if(count<=0) return; 

// Process selected strings 

bool subdir = ( fd . m__Select Subdirectories == TRUE); 

for (UINT ind=0; ind < (UINT) count; ind ++) 

( 

ShowProgress ( 90* { ind+1) /count , "Removing selected ... "); 
app_DataBase . UnlmportDirectory ( 

(char*) (LPCSTR) ( fd , Get SelectedAt ( ind) ) , subdir) ; 

} 

ShowProgress ( 0 ) ; 
return; 

} 

void CDCMApp: : OnDataBaseRemoveFi lesAt tached ( ) 

( 

// Display modal FileOpen dialog 
CCustomFileDialog fd; 

fd. SetTitle (" Select Attached Files/Directories to Remove from the Database") 

if (fd.DoModal 0 != IDOK ) return; 

int count = fd . GetSelectedCount () ; 

if(count<=0) return; 

// Process selected strings 

bool subdir = (fd.m Select Subdirectories == TRUE); 
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for(UINT ind=0; ind < {U 



ShowProgress ( 90* ( ind+1 ) /count , "Removing attached ... 
app_DataBase , UnAttachDirectory ( (char*) (LPCSTR) ( f d . GetSelectedAt (ind) ) 
subdir) ; 

} 

ShowProgress (0) ; 
return; 

) 

void CDCMApp: : OnDataBaseAddRecords ( ) 

{ 

app_QueryRetrieve . DoModeless ( ) ; 

} 

void CDCMApp: : OnDataBaseRemoveRecords ( ) 

{ 

DQRSearch ds; 

if (ds.DoModal 0 != IDOK) return; 

if (AfxMessageBox ( "Delete specified items from local database 
MB_YESNO) != IDYES) return; 

DICOMRecord dr; 

ds. WritelntoDICOMRecord(dr) ; 

int n = app_DataBase . DBRemove (dr ) ; 

if (n>0) 

{ 

est ring info; 

inf o . Format (" %d records were removed from the local database\n\n" 
"Some of the records in the query results window\n" 
ri "may no longer be valid !",n); 

AfxMessageBox (info, MB_ICONINFORMATION) ; 

01 else AfxMessageBox ( "No matching records found", MB_ICONINFORMATION) ; 

vxiid CDCMApp : lOnDataBaseRemoveALLRecords 0 

app_DataBase . RemoveAllRecords ( ) ; 



^*^* **************************************************** 

Move window to right bottom corner of the screen 
*y (with specified offset) 
S.j Use to display utility dialogs 
pi 

**************************************************************************/ 
^id CDCMApp : :MoveWindowToCorner (CWnd *wnd, 

CSize of f set/*=CSize (0, 0) */) 

( 

CRect wr; 

wnd- >GetWindowRect (wr) ; 

wr .Of f setRect ( app_ScreenResolut ion-wr . BottomRight ( ) 

-CSize(40,40) -offset) ; 
wnd- >MoveWindow (wr , TRUE) ; 
wnd- >BringWindowToTop ( ) ; 

} 

/**************************************************************************** 
* 

* Time bomb 
* 

****************************************************************************/ 
bool CDCMApp :: TimeBomb ( ) 

{ 

CTime t = CTime : : Ge tCurrentTime ( ) ; 
CTime t stop ( 2000 , 12 , 1 , 1 , 1 , 1) ; 
if (t> = tstop) 
{ 

AfxMessageBox ("Program expired ! '\ MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

return true; 

} 



8 



DCM . cpp 



10/27/00 



M W 



* 

* This function is used for "code testing only 



^include "AccurateTimer . h" 
BOOL CDCMApp :: Test Function ( ) 

{ 

/* MemoryLeakTest mlt; 
mlt - Start ( ) ; 
{ 

DICOMObject dl , d2 ; 

dl . LoadFromFile ( "D : \\DICOM\\Data\\0 . dcm" ) ; 
d2 . LoadFromFile ( "D : \\DICOM\\Data\\0 0. dcm'' ) ; 

ImageSeries si, s2; 
sl.ReadDO(dl) 
s2.ReadDO(d2) 
si .Append (s2) 
} 

mlt ,End(l) ; 
return FALSE; 

*/ 

return TRUE; 

} 

* 

*j=5; Displaying progress in the min frame status bar 

*^ it *************************************************************** 

vgld CDCMApp :: ShowProgress ( int percent, char* info /* =NULL*/) 
app^Progress . ShowProgress ( percent , info); 

^ ±^ ******************************************** 
Displaying meaninful recent file list names 

^id CDCMApp: :LoadStdProf ileSettings (UINT nMaxMRU/*= _AFX_MRU_COUNT*/ ) 

lU const TCHAR _af xFi leSect ion [ ] = _T("Recent File List"); 

const TCHAR _af xFileEntry [] = _T { " Fi le%d" ) ; 
pl const TCHAR _af xPreviewSect ion [ ] = _T (" Settings" ) ; 

const TCHAR _af xPreviewEntry [ ] = _T ( " PreviewPages " ) ; 
Ci ASSERT_VALID{this) ; 

ASSERT (m_pRecentFileList == NULL); 

if (nMaxMRU != 0) 
{ 

// create file MRU since nMaxMRU not zero 

m_pRecentFileList = new ORecentFileLi st ( 0 , _af xFi leSect ion , _af xFi leEntry , 

nMaxMRU) ; 
m_pRecentFileList->ReadList ( ) ; 

) 

// 0 by default means not set 

m_nNumPreviewPages = GetProf ileint (_af xPreviewSect ion, __af xPreviewEntry , 0) ; 



///////////////////////////////////////////////////////////////////////////// 
// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 

{ 

public : 

CAboutDlg ( ) ; 



// Dialog Data 

//{ {AFX_DATA (CAboutDlg) 
enum { IDD = IDD_ABOUTBOX }; 
// } }AFX_DATA 
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// ClassWizard generated ^^pEual function overrides 
//{ {AFX_VIRTUAL (CAboutDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
// } }AFX_VIRTUAL 

// Implementation 
protected : 

//{ {AFX_MSG(CAboutDlg) 

// No message handlers 

//} }afx_msg 
declare_message_map ( ) 

}; 

CAboutDlg: :CAboutDlg(} : CDialog ( CAboutDlg : : IDD) 
{ 

// { {AFX_DATA_INIT (CAboutDlg) 
// ) }AFX_DATA_INIT 

} 

void CAboutDlg :: DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX ) ; 
// { {AFX_DATA_MAP (CAboutDlg) 
// } }AFX_DATA_MAP 



BiB^?IN_MESSAGE_MAP (CAboutDlg, CDialog) 
//{ {AFX_MSG_MAP (CAboutDlg) 

-iJ // No message handlers 

01 // } }AFX_MSG_MAP 
ENp_MESSAGE_MAP ( ) 

^. 5 

IJl App command to run the dialog 
viSid CDCMApp : :OnAppAbout ( ) 

% 

^\ CAboutDlg aboutDlg; 
aboutDlg . DoModal ( ) ; 

\ 



fy/////////////////////////////////////////////////////////////////////////// 

j44 ORecentFileList 

^id ORecentFileList :: UpdateMenu (CCmdUI *pCmdUI) 

if 

Li ASSERT (m_arrNames != NULL) ; 

CMenu* pMenu = pCmdUI - >m_pMenu ; 

if (m_strOriginal . IsEmpty ( ) && pMenu != NULL) 

pMenu->GetMenuString ( pCmdUI - >m_nID , m_strOr iginal , MF_BYCOMMAND) ; 

if {m_arrNames [0] . IsEmpty () ) 
{ 

// no MRU files 

if ( ! m_strOriginal . I sEmpty ( ) ) 

pCmdUI - >SetText (m_strOr iginal ) ; 
pCmdUI->Enable (FALSE) ; 
return ; 

} 

if (pCmdUI->m_pMenu == NULL) 
return; 

for (int iMRU = 0; iMRU < m_nSize; iMRU++) 

pCmdUI->m_pMenu->DeleteMenu(pCmdUI->m_nID + iMRU, MF_BYCOMMAND) ; 

TCHAR szCurDir [_MAX_PATH] ; 

GetCurrentDirectory (_MAX_PATH, szCurDir) ; 
int nCurDir = 1 strlen ( szCurDir ) ; 
ASSERT (nCurDir >= 0) ; 
szCurDir [nCurDir] = '\\'; 
szCurDir [++nCurDir] = '\0'; 
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CString strName; 
CString strTemp; 
CString strMenu= '* Ku-ku" ; 
for (iMRU = 0; iMRU < m_nSize; iMRU++) 
{ 

if (! GetDisplayName ( StrName , iMRU, szCurDir, nCurDir) ) 
break; 

// double up any characters so they are not underlined 

LPCTSTR IpszSrc = strName; 

LPTSTR IpszDest = strTemp . GetBuffer ( strName . GetLength ()* 2 ) ; 
while (*lpszSrc != 0) 

{ 

if (*lpszSrc == ) 

*lpszDest++ = ' & ' ; 
if (_ist lead ( *lpszSrc) ) 

*lpszDest++ = *lpszSrc++; 
*lpszDest++ = *lpszSrc++; 

) 

*lpszDest = 0; 
StrTemp. ReleaseBuffer ( ) ; 
// Modification: find menu alias 

if (m_menuNames . Lookup (m_arrNames [ iMRU] , strMenu) == FALSE) 

{ 

3 1 rMenu= s t rTemp ; 

) 

// insert mnemonic + the file name 
TCHAR buf [10] ; 

wsprintf (buf , _T{"&%d ( iMRU+l+m_nStart ) % 10); 

pCmdUI - >m_pMenu- > InsertMenu (pCmdUI - >m_nlndex++ , 
MF_STRING I MF_BYPOSITION, pCmdUI - >m_nID++ , 
CString (buf) + strMenu); 




"Zl II update end menu count 

pCmdUI - >m_nlndex- - ; // point to last menu added 
HJ pCmdUI - >m_nIndexMax = pCmdUI - >m_pMenu- >GetMenuI temCount ( ) ; 

7 pCmdUI - >m_bEnableChanged = TRUE; // all the added items are enabled 

t: 

^Tk-J* ************************************************** 

\_\ Insert "mname" as a menu alias to existing "fname" file 

fj^.* it********************************************* 

T?^id ORecentFileList : :AddMenuAlias {LPCTSTR fname, CString mname) 

'r 

m_menuNames . SetAt ( f name , mname) ; 
CleanMenuAliases ( ) ; 

} 

* 

* Remove old menu aliases 
* 

********************************************************* 
void ORecentFileList: : CleanMenuAl iases ( ) 

{ 

bool found; 

int i ; 

POSITION pos; 

CString key, val; 

for( pos = m_menuNames . GetStartPosit ion ( ) ; pos != NULL; ) 

{ 

m_menuNames . GetNext Assoc (pos , key, val); 
f ound=f alse ; 

for(i=0; i<m_nSize; i++) 

{ 

if (m_arrNames [ i] ==key ) { found = true; break; } 

} 

if ( ! found) m_menuNames . Remove Key (key ) ; 

} 



11 



} 

/***************************** 

* Serialize MRU list aliases 



DCM.cpp 10/27/00 



void ORecentFileList : :SerializeORFList (FILE* fp, bool is_loading) 
{ 

if(!fp) return; 
int n, k; 

char key [MAX_PATH+1] , val [MAX_PATH+1] ; 
if ( is_loading) 



m_menuName s . RemoveAl 1 ( ) ; 

: : Serializelnteger ( f p, n, true) ; 

if (n<=0) return; 

for(k=0; k<n; k++) 

{ 

: : SerializeString (f p, key, true); 
: : SerializeString ( f p, val, true); 
m_menuNames . SetAt (key , val) ; 

) 

) 

else 

{ 

CleanMenuAliases ( ) ; 

n=m_menuNames , Get Count ( ) ; 

: : Serializelnteger (fp, n, false) ; 
4J position pos; 

ni CString ks, vs; 

f or ( pos = m_menuNames . GetStartPosition ( ) ; pos != NULL; ) 

=^ { 

'-'i m_menuNames .GetNextAssoc (pos , ks, vs) ; 

Jj sprintf (key %s" , ks) ; 

/Jj : : SerializeString (f p, key, false); 

2^ sprintf ( val , " %s" , vs) ; 

nJ : rSerializeString (fp, val, false); 



i; 

nJ 
u 



} 
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«CChildFrame class 
/////////////////////// /////////^/. 



1/ ChildFrm.h : interface of 
// 

/////////////////////////////;77/////////////////////////////////7^///////// 



*Jif !def ined(AFX_CHILDFRM_H 039FD0CD_68EA_11D2_9576_00105A21774F INCLUDED_) 

#def ine AFX_CHILDFRM_H 03 9FDOCD_6 8EA_11D2_9576_00105A21774F INCLUDED_ 

^^if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

class CChildFrame : public CMDIChildWnd 
{ 

DECLARE_DYNCREATE ( CChi IdFrame ) 
publ ic : 

CChildFrame ( ) ; 

// Attributes 
publ ic : 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CChildFrame) 
publ ic : 

virtual BOOL PreCreateWindow (CREATESTRUCTSc cs) ; 
virtual void Act ivateFrame { int nCmdShow = -1); 
// } }AFX_VIRTUAL 

Iftci Implementation 
pti" lie: 

-tIJ virtual -CChi IdFrame () ; 
fyfdef _DEBUG 

virtual void AssertValid ( ) const; 

7J virtual void Dump ( CDumpContext £e dc) const; 
^dif 

U Generated message map functions 
^^-otected : 

'ir //{ {AFX_MSG( CChi IdFrame) 

£3 afx_msg void OnMove(int x, int y) ; 

nJ //}}AFX_MSG 

. DECLARE_MESSAGE_MAP ( ) 

If 

O/////////////////////////////////////////////////////////////////////////// 
//( (afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
1 ine . 



#endif // ! def ined ( AFX_CHI LDFRM_H 03 9FD0CD_6 8EA_1 1D2_9 5 76_0 0105A21 774 F INCLUDED_) 
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#of the CChildFrame class 
W 



// ChildFrm. cpp : implementa 
// 

#include "stdafx.h" 
*f include "DCM.h" 
#include "DCMView.h" 

#include "ChildFrm. h" 

**ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CChildFrame 

IMPLEMENT_DYNCREATE (CChildFrame, CMDIChi IdWnd) 

BEGIN_MESSAGE_MAP (CChildFrame, CMDIChi IdWnd) 

/ / ( { AFX_MSG_MAP ( CChi IdFrame ) 

ON_WM_MOVE ( ) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CChildFrame construction/destruction 

dgii IdFrame : : CChi IdFrame ( ) 

01 // TODO : add member initialization code here 
CghildFrame : : -CChildFrame ( ) 



BOOL CChildFrame: :PreCreateWindow(CREATESTRUCT& cs) 

u 

// TODO: Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 
Hi return CMDIChildWnd : : PreCreateWindow ( cs) ; 

ii 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
CChildFrame diagnostics 

#ifdef _DEBUG 

void CChildFrame : :AssertValid () const 

( 

CMDIChildWnd: :AssertValid() ; 

} 

void CChildFrame :: Dump (CDumpContext& dc) const 
{ 

CMDIChildWnd: :Dump(dc) ; 

} 

Sendif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CChildFrame message handlers 

void CChildFrame :: Act ivateFrame ( int nCmdShow) 
{ 

CMDIChildWnd: : Act ivateFrame ( SW SHOWMAX IMI ZED) ; 



*• 

* Responds to view window moves 
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void CChildFrame : :OnMove ( int x, int y) 




********************************** 




CDCMView *pView = (CDCMView* ) GetAct iveView ( ) ; 
if(!pView) return; 
pView- >EraseTool s ( ) ; 

/* 

// determine desired size of the view 
CRect temp (0 , 0 , 0 , 0) ; 

pView-->CalcWindowRect { temp , CWnd : : ad justBorder ) ; 
CalcWindowRect ( temp, CWnd: : adj ustBorder ) ; 
CWnd* pFrameParent = Get Parent () ; 

CRect rcBound; 

pFrameParent - >GetClientRect (rcBound) ; 

//CWinRect rcBound (pFrameParent , CWinRect :: CLIENT) ; 

CRect rectView (CPoint (0 , 0), pView- >GetTotalSi2e ( ) ) ; 

rectview. right = min (rectView. right , rcBound . right - temp . Width ()) ; 

rectview. bottom = min { rectview . hot tom, rcBound . bottom - temp . Height ()) ; 

pView- >CalcWindowRect (rectview, CWnd :: adj ustOut side) ; 
CalcWindowRect (rectview, CWnd: : adjustBorder ) ; 
rectview -= rectview . TopLef t () ; 

rectview. right = min (rectview. right , rcBound . right ) ; 

rectview. bottom = min (rectview. bottom, rcBound , bottom) ; 

*/ 
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:l:^^kcMDoc class 

fimifiiiii/niiniiiiii/iiiiiiii//i^mh 



II DCMDoc.h : interface of tl- 
// 

//////////////////////////////T//////////////////////////////////777///////// 



#if (defined (AFX_DCMDOC_H 03 9FDOCF_6 8EA_11D2_9 576_00105A21774 F INCLUDED_) 

^^def ine AFX_DCMDOC_H 03 9FD0CF_6 8EA_11D2_9 5 76_0 0105A21774F INCLUDED_ 

*fif _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

{linclude "MainFrm.h" 

include "Lupa.h" // Added by ClassView 
^include "DICOM_H\DICOMDocument . h" // Added by ClassView 

class CDCMDoc : public CDocument , public DICOMDocument 

{ 

protected: // create from serialization only 
CDCMDoc ( ) ; 

DECLARE_DYNCREATE ( CDCMDoc ) 
public : 

double m_imageZoom, m_imageZoomFi tScreen ; 

Lupa m_Lupa ; 

CMainFrame* m_MainFrame ; 

bool OnZoom(UINT nID, Image *pBmp) ; 

p7 Image* Gotolmage ( int code) ; 

virtual -CDCMDoc ( ) ; 

^ivate : 

ifj CString m_SoundFi leName ; 

^ 3 

"'^ Image* Ge tDIBImage ( int n) ; 

uj Image* Ge tDIBImage () ; 

Jl CView* GetViewPtr ( ) ; 

|)yblic : 

s void OnViewRef resh (BOOL erase_background=FALSE) ; 
)Li Overrides 

pi // ClassWizard generated' virtual function overrides 

// { {AFX_VIRTUAL (CDCMDoc) 
ly public: 

Sj virtual void Serialize (CArchive& ar) ; 
// ) }AFX_VIRTUAL 

Sifdef _DEBUG 

virtual void Asser tValid ( ) const; 

virtual void Dump { CDumpContext & dc) const; 
#endif 

// Generated message map functions 
protected : 

//( {AFX_MSG( CDCMDoc) 

afx_msg void OnFi leSendMai 1 ( ) ; 

afx_msg void OnUpdateFi leSendMai 1 (CCmdUI * pCmdUI); 

afx_msg void OnUpdateZoomFit Screen (CCmdUI * pCmdUI ) ; 

afx_msg void OnUpdateFrameNumber ( CCmdUI * pCmdUI); 

afx_msg void Set Fi tScreenZoom ( ) ; 

afx_msg void OnViewDicomInf o ( ) ; 

afx_msg void OnFi leSave ( ) ; 

afx_msg void OnFi leSaveAs () ; 

afx_msg void OnSoundRecord ( ) ; 

// } }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
1 ine . 
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*Jendif // !defined(AFX DCMDOC^^OaSFDOCF 68EA 11D2 9576 00105A21^«F INCLLrDED_) 



DCj^^03 9FD0CF_6 8EA_llD2_95 76_0010 5A2^^|^_ 
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C|^^^ the CDCMDoc class 



// DCMDoc . cpp : implementati 
// 

f^include "stdafx.h" 
S include "DCM.h" 

it include "DCMDoc. h" 

tJinclude "DCMView.h" 

^include " SoundDialog . h" 

itinclude "Tools/Email .h" 

#ifdef _DEBUG 
^define new DEBUG_NEW 
Sundef THIS_FILE 

static char THIS_FILE[] = FILE ; 

Sendif 

///////////////////////////////////////////////////////////////////////////// 
// CDCMDoc 

IMPLEMENT_DYNCREATE (CDCMDoc, CDocument) 

BEGIN_MESSAGE_MAP ( CDCMDoc , CDocument ) 
/ / { { AFX_MSG_MAP ( CDCMDoc ) 

ON_UPDATE_COMMAND_UI (ID_ZOOM_FI T_SCREEN , OnUpdateZoomFi t Screen) 

ON_COMMAND ( ID_ZOOM_FI T_SCREEN , Se t Fi t ScreenZoom) 

ON_COMMAND(ID_VIEW_DICOMINFO, OnViewDi com Info) 
P=l ON_COMMAND( ID_FILE_SAVE, OnFileSave) 
"J ON_COMMAND { ID_FILE_SAVE_AS , OnFi leSaveAs ) 

ON_COMMAND( ID_SOUND_RECORD, OnSoundRecord) 
01 ON_UPDATE_COMMAND_UI ( ID_FRAME_NIJMBER, OnUpdat eFrameNumber ) 
J1 // } }afx_msg_map 

0N_C0MMAND ( ID_FILE_SEND_MAIL, OnFileSendMail) 
"""^ 0N_UPDATE_C0MMAND_UI ( ID_FILE_SEND_MAIL, OnUpdateFileSendMail) 
^D_MESSAGE_MAP ( ) 

***************************************************************** 

* 

'^t Constructor & Destructor 

********************************************************************** 
Si)CMDoc : : CDCMDoc ( ) 

m_MainFrame= (CMainFrame* ) Af xGetMainWnd ( ) ; 

m_imageZoomFi tScreen=m_imageZoom=l . 0 ; // initial zoom - normal size; 

/* No sound file */ 
m_SoundFi leName= " 

} 

CDCMDoc :: -CDCMDoc ( ) { ; } 

/****************************************************************************** 
* 

* CDCMDoc serilization 
* 

****************************************-**************'************************/ 
void CDCMDoc :: Serialize (CArchive& ar) 

{ 

if (ar . IsStoring { ) ) 

{ 

CFile* pFile = ar .GetFile ( ) ; 

if ( IpFile) 

{ 

AfxMessageBox ( "Cannot open a f ile'M ; 
return; 

) 

DICOMDocument : : SaveDocument (pFi le - >Get Fi lePath ( ) , 

DICOMDocument : : FormatDICOMModif ied) ; 

return; 

} 

else 
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CFile* pFile = ar.Get 
if ( IpFile) 
{ 

AfxMessageBox ( "Cannot open a file"); 
return; 

) 

ar.FlushO; // flush all data into the file 
// Can we load the DICOM ? 

if ( ! DICOMDocument : : LoadFile (pFi le - >Get Fi lePath { ) ) ) return; 
//AddDDOFile("D:\\Dicom\\Data\\0.dcm") ; // test 
// Do we have any images ? 
if (GetNumberOf Images ( ) <=0) 

{ 

AfxMessageBox ( "This DICOM object contains no image data" 

MB_0K|MB_IC0NINF0RMATI0N) ; 
return ; 

} 

// Update image view 
UpdateAllViews (NULL, 0, NULL ) ; 
re turn ; 



* 

-fz^ DEBUG diagnostics 

iff.* *********************************************************************/ 
eifdef _DEBUG 

Y?3id CDCMDoc: :AssertValid() const 

CDocument: : Asser tVal id ( ) ; 
^f^id CDCMDoc :: Dump (CDumpContext& dc) const 
'"•^ CDocument :: Dump (dc) ; 
^endif // DEBUG 

i — 

O 

i*^ Get image #n or current frame 

5 * **********♦*****♦********♦****************♦***********♦***♦***********/ 

Image* CDCMDoc : :GetDIBImage ( int n) 

{ 

Image* img = DICOMDocument : :GetImage (GetCurrent Imagelndex ()) ; 
if(!img) return NULL; 

if { img) 

{ 

m_imageZoom = img- >Get Zoom () ; 

} 

img = DICOMDocument :: Get Image (n) ; 
i f ( img) 

( 

m_MainFrame- >ShowFrameNumber (GetCurrent Imagelndex 0+1) ; 
img->m_ScreenMap . ValidateZoom(m_imageZoom) ; // zoom appropriately 

} 

GetCurrentSeries ( ) - >Set Selectedlmage ( ) ; 
return img; 

} 

Image* CDCMDoc :: GetDIBImage ( ) 

{ 

return GetDIBImage (DICOMDocument : : GetCurrent Image Index () ) ; 

} 

/****************★*****★************************************************ 
* 

* Go to first (code=-2) , previous (code^-1) , 

* next (code=+l) or last (code=+2) image 
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******* 
I mage ^ 

{ 



********************* ******************************* 
CDCMDoc : :GotoImage ( int code) 



switch ( code) 

{ 

case -2 
case -1 
case 1 
case 2 

} 

return GetDIBImage (GetCurrent Image Index () ) ; 



return GetDIB Image ( 0 ) ; 

return GetDIBImage (GetCurrent Imagelndex ( ) - 1 ) ; 
return GetDIB Image (GetCurrent Image Index {) +1) ; 
return GetDIBImage (GetNumberOf Images ( ) - 1 ) ; 



/*********************************************************************** 
* 

* Save DICOM document in different formats 
* 

************************************************************************/ 

void CDCMDoc : lOnFileSaveAs ( ) 

{ 

BYTE format; 

CString ffilter=_T( "DICOM (*) |*|" 

"Windows directory (*.bmp, * . txt , * . wav) | * . | | " ) ; 
CString f name^DICOMDocument : : Get Fi lename () ; 

// Display modal file dialog 

CFileDialog fd( FALSE, NULL, fname, 

OFN_HIDEREADONLY | OFN_NONETWORKBUTTON | OFN_OVERWRI TEPROMPT , 
4r f filter) ; 

4i if (fd.DoModal 0 != IDOK ) return; 

~f% II Get save 

f name = f d . GetPathName ( ) ; 
switch {fd.m_ofn. nFilterlndex) 

case 1: f ormat=DICOMDocument 

case 2: format = DICOMDocument 

default: f ormat=DICOMDocument 

. } 

DICOMDocument : : SaveDocument ( f name , format ) ; 
UpdateAllViews (NULL) ; 

i? 

30Ge>id CDCMDoc : :OnFi leSave ( ) 

DICOMDocument: :SaveDICOM{) ; 
UpdateAllViews (NULL) ; 



FormatDICOMModif ied; break 
FormatWINDOWSMul t imedia ; break 
FormatDICOMOriginal ; break 



y*********************************************************************** 
* 

* Reset Doc image zoom; return true if reset was possible 
* 

************************************************************************/ 
bool CDCMDoc : :OnZoom (UINT nID, Image *pBmp) 

{ 

swi tch (nID) 
{ 

case ID_ZOOM_l_l 
case ID_ZOOM_l_2 
case ID_ZOOM_l_3 
case ID_Z00M_1_4 
case ID_Z00M_2_1 
case ID_ZOOM_3_l 
case ID_ZOOM_4_l _ 
case 1: // next smaller zoom 

if (m_imageZoom<0 . 2) return false 

m_imageZoom /= 1.1; 

break ; 

case 2: // next larger zoom 

if (m_imageZoom>4 ) return false 
m_imageZoom *= 1.1; 
break ; 



1 


0; 


break 


2 


0; 


break 


3 


0; 


break 


4 


0; 


break 


0 


5; 


break 


1 


0/3; 


break 


0 


25; 


break 
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default: return false; // 



Vj^^Kk out invalid zoom maps 
it^poom{m_ image Zoom) ; 



pBmp- >m_ScreenMap . Validat 

m_Lupa . Initialize (m_Lupa . l_scnSize , m_image2oom, m_Lupa . l_zoom) ; 
return true; 

) 

/************************★********************************************* ****** 
* 

* Set zoom to fit the entire application screen 
* 

void CDCMDoc : : SetFitScreenZoom( ) 

{ 

if (GetNumberOf Images { ) <=0) return; 

int img_num=GetCurrent Image Index () ; // save current image index 
Image *img = DICOMDocument :: Get Image ( 0} ; 
CRect main_client; 

AfxGetMainWndO ->GetClientRect {main_cl ient ) ; 
double screen_width=main_client -Width 0 -16; 
double screen_height=main_client . Height ( ) -100 ; 
if (screen_width<16 && screen_height < 16 ) return; 
m_image2oomFitScreen=min (screen_width/img->GetWidth ( ) , 

screen_height/img->GetHeight () ) ; 
if (m_image2oomFitScreen>4 . 0) m_imageZoomFi tScreen=4 . 0 ; 
m_imageZoom=m_imageZoomFit Screen; 

img->m_ScreenMap . ValidateZoom (m_imageZoom} ; 

m_Lupa . Initialize (m_Lupa . l_scnSize , m_imageZoom, m_Lupa . l_zoom) ; 

int off_x=(int) ( screen_width-m_imageZoomFi tScreen* img- >GetWidth () ) /2 ; 
J3 int off_y=(int) ( screen_height -m_imageZoomFitScreen*img->GetHeight ( ) ) /2 ; 

yi 

■J% I / Reset all frames, browse included 

for(int n=0; n<GetNumberOf Images () ; n++) 

.. { 

DICOMDocument : :Get Image (n) - >m_ScreenMap . SetLef tTopScreenPoint (of f_x+4 , of f_y+4 ) 

Ji } 

// Reset to original current image 
DICOMDocument : : Get Image ( img_num) ,- 
UpdateAllViews (NULL) ; 



ni 



void CDCMDoc : :OnUpdateZoomFitScreen{CCmdUI* pCmdUI) 

m 

W CString zinfo; 

^? zinfo. Format ( "Fit view: %. 01f% 100 *m_imageZoomFit Screen) ; 

pCmdUI->SetText (zinfo) ; 
CJ pCmdUI->Enable ( ) ; 
} 



/******************************************************************************* 
* 

* Launch Sound Recorder 
* 

*******************************************************************************/ 
void CDCMDoc : :OnSoundRecord 0 

{ 

SoundDialog sd; 
sd, DoModal ( ) ; 

m_SoundFileName=sd . GetWavFi leName ( ) ; 

} 



* 

* Email document as attachment 
* 

*******************************************************************************/ 

void CDCMDoc : lOnFileSendMail 0 

{ 

CDocument : : OnFi leSendMai 1 () ; 
/* 

Ema i 1 mail; 
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CString message = CString^^»Vtt ached is DICOM image \n"); 
mail . Send ( " " , "DICOM image^^pssage , //DICOMDocument : : Get Fi lena^HB 

,AfxGetMainWnd() - >GetSai^Hwnd () ) ; 

*/ 

} 

void CDCMDoc : :OnUpdateFileSendMail (CCmdUI* pCmdUI) 



CDocument : : OnUpdateFi leSendMai 1 (pCmdUI) ; 

} 

/*********************************************************************************** 
* 

* Display DICOM header info 
void CDCMDoc : :OnViewDicomInf o ( ) 

{ 

DICOMDocument: : DisplayDICOMInf o ( ) ; 

} 

/*****★****************★*******************•***************************************** 
* 

* Update toolbar image counter 
* 

****************************** **************************** ********* 
void CDCMDoc : :OnUpdateFrameNumber (CCmdUI* pCmdUI) 

{ 

m_MainFrame->ShowFrameNumber (GetCurrent Image Index 0+1) ; 

} 



»?***************** 



***************************************************************** 



tfj Get pointer to the current view 
1 1 

*"#**********************************************************************************/ 
e^iew* CDCMDoc : :GetViewPtr ( ) 

R= POSITION pos = GetFirstViewPosition ( ) ; 

if (pos != NULL) return GetNextView {pos ) ; 
= else return NULL; 

********************************************************************************** 
'■^J Redraw current view 

^j* **********************************************************************************/ 
Msid CDCMDoc : :OnViewRefresh (BOOL erase_background/*=FALSE*/ ) 
{ 

CDCMView* pView = (CDCMView* ) GetViewPtr () ; 
if(!pView) return; 

pView- >OnViewRef resh (erase_background) ; 

) 
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II MainFrm.h : interface of t^BkMa in Frame class 

/////////////////////////////^^///////////////////////////////y^///////// 



*Jif !defined( AFX_MA I N FRM_H I NC LUDED_ ) 

^define AFX_MAINFRM_H INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >=: 1000 

class CMainFrame : public CMDIFrameWnd 
{ 

DECLARE_DYNAM IC ( CMainFrame ) 
public : 

CMainFrame ( ) ; 

// Attributes 
public : 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {aFX_VIRTUAL (CMainFrame) 
publ ic : 

virtual BOOL PreCreateWindow (CREATESTRUCTSc cs) ; 
=i virtual BOOL DestroyWindow ( ) ; 
/ / ) }AFX VIRTUAL 

fzfi Implementation 
Jfblic : 

=^ void SetDictionaryStatus (bool enabled); 

void EnableLogoAnimat ion (bool enable) ; 

J] void ShowMult if rameToolbar (bool show=true) ; 

7r\ void ShowFrameNumber ( int n) ; 

J^" virtual -CMainFrame () ; 
Mifdef _DEBUG 

5 virtual void AssertValid ( ) const; 

virtual void Dump (CDumpContext & dc) const; 
lendif 
kJ 

protected: // control bar embedded members 





CStatusBar 


m_StatusBar ; 


lEToolBar 


m_ToolBarBasic , m_ToolBarMul t if rame 




CAnimateCtrl 


m_Animate ; 


cs 


CReBar 


m_ReBar ; 




CDialogBar 


m_wndDlgBar ; 



// Generated message map functions 
protected : 

//{ (AFX_MSG(CMainFrame) 

afx_msg int OnCreate ( LPCREATESTRUCT IpCreateStruct) ; 

afx_msg void OnViewToolbar ( ) ; 

afx_msg void OnUpdateViewToolbar ( CCmdUI * pCmdUI); 
afx_msg void OnDropFi les (HDROP hDropInfo) ; 
// } )AFX_MSG 

afx_msg void OnUpdateProgressStatus (CCmdUI *pCmdUI); 
afx_msg void OnToolbarDropDown (NMTOOLBAR* pnmh, LRESULT* plRes) ; 
DECLARE_MESSAGE_MAP ( ) 
private : 

bool m_showToolbars ; 

CString m_paneSt r ing ; 

}; 

///////////////////////////////////////////////////////////////////////////// 
//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line . 

#endif // ! defined (AFX_MAINFRM_H INCLUDED_) 
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